--- trunk/svn2cvs.pl 2004/03/09 21:45:32 3 +++ trunk/svn2cvs.pl 2004/03/09 21:54:36 4 @@ -67,11 +67,11 @@ if ($add_new) { system "$cvs add $CVSREP/$path" || die "cvs add of $path failed: $!"; + } else { + my $msg="subversion revision $rev commited to CVS"; + print "$msg\n"; + system "$cvs commit -m \"$msg\" $CVSREP/$path" || die "cvs commit of $path failed: $!"; } - - my $msg="subversion revision $rev commited to CVS"; - print "$msg\n"; - system "$cvs commit -m \"$msg\" $CVSREP/$path" || die "cvs commit of $path failed: $!"; } @@ -155,8 +155,6 @@ exit 0; } -print Dumper($xml); - foreach my $e (@{$xml->{'logentry'}}) { die "BUG: revision from .svnrev ($rev) greater than from subversion (".$e->{'revision'}.")" if ($rev > $e->{'revision'}); $rev = $e->{'revision'};