cvsimport: Missing tests for verbosity flag.

This commit is contained in:
Matthias Urlichs 2005-07-03 19:03:30 +02:00
parent 34155390a5
commit 9da07f3493

View File

@ -602,7 +602,7 @@ while(<CVS>) {
$branch = $opt_o if $branch eq "HEAD"; $branch = $opt_o if $branch eq "HEAD";
if(defined $branch_date{$branch} and $branch_date{$branch} >= $date) { if(defined $branch_date{$branch} and $branch_date{$branch} >= $date) {
# skip # skip
print "skip patchset $patchset: $date before $branch_date{$branch}\n"; print "skip patchset $patchset: $date before $branch_date{$branch}\n" if $opt_v;
$state = 11; $state = 11;
next; next;
} }
@ -649,7 +649,7 @@ while(<CVS>) {
my $rev = $3; my $rev = $3;
$fn =~ s#^/+##; $fn =~ s#^/+##;
my $data = $cvs->file($fn,$rev); my $data = $cvs->file($fn,$rev);
print "".($init ? "New" : "Update")." $fn: ".length($data)." bytes.\n"; print "".($init ? "New" : "Update")." $fn: ".length($data)." bytes.\n" if $opt_v;
mkpath(dirname($fn),$opt_v); mkpath(dirname($fn),$opt_v);
open(F,"> ./$fn") open(F,"> ./$fn")
or die "Cannot create '$fn': $!\n"; or die "Cannot create '$fn': $!\n";