undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Local cvsimport fixups

Browse Source
This commit is contained in:
Matthias Urlichs 2005-06-28 19:58:40 +02:00
parent 2a3e1a85b5
commit f65ae603db
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
git-cvsimport-script
View File

@ -61,6 +61,8 @@ package CVSconn;
# Basic CVS dialog. # Basic CVS dialog.
# We're only interested in connecting and downloading, so ... # We're only interested in connecting and downloading, so ...
use POSIX qw(strftime dup2);
sub new { sub new {
my($what,$repo,$subdir) = @_; my($what,$repo,$subdir) = @_;
$what=ref($what) if ref($what); $what=ref($what) if ref($what);
@ -571,7 +573,9 @@ while(<CVS>) {
# VERSION:1.96->1.96.2.1 # VERSION:1.96->1.96.2.1
my $init = ($2 eq "INITIAL"); my $init = ($2 eq "INITIAL");
my $fn = $1; my $fn = $1;
my $data = $cvs->file($fn,$3); my $rev = $3;
$fn =~ s#^/+##;
my $data = $cvs->file($fn,$rev);
print "".($init ? "New" : "Update")." $fn: ".length($data)." bytes.\n"; print "".($init ? "New" : "Update")." $fn: ".length($data)." bytes.\n";
mkpath(dirname($fn),$opt_v); mkpath(dirname($fn),$opt_v);
open(F,"> ./$fn") open(F,"> ./$fn")
@ -583,7 +587,9 @@ while(<CVS>) {
chmod(pmode($cvs->{'mode'}), $fn); chmod(pmode($cvs->{'mode'}), $fn);
push(@new,$fn); # may be resurrected! push(@new,$fn); # may be resurrected!
} elsif($state == 9 and /^\s+(\S+):\d(?:\.\d+)+->(\d(?:\.\d+)+)\(DEAD\)\s*$/) { } elsif($state == 9 and /^\s+(\S+):\d(?:\.\d+)+->(\d(?:\.\d+)+)\(DEAD\)\s*$/) {
push(@old,$1); my $fn = $1;
$fn =~ s#^/+##;
push(@old,$fn);
} elsif($state == 9 and /^\s*$/) { } elsif($state == 9 and /^\s*$/) {
$state = 10; $state = 10;
} elsif(($state == 9 or $state == 10) and /^-+$/) { } elsif(($state == 9 or $state == 10) and /^-+$/) {