--- trunk/svn2cvs.pl	2004/03/09 20:58:34	1
+++ trunk/svn2cvs.pl	2004/03/09 21:02:42	2
@@ -78,6 +78,7 @@
 close(SVNREV);
 
 print "Starting after revision $rev\n";
+$rev++;
 
 
 #
@@ -111,7 +112,7 @@
 }
 close(LOG);
 
-my $xml = XMLin($log, ForceArray => [ 'path' ]);
+my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]);
 
 
 =begin log_example
@@ -125,6 +126,13 @@
 
 my $fmt = "\n" . "-" x 79 . "\nr%5s| %8s | %s\n\n%s\n";
 
+if (! $xml->{'logentry'}) {
+	print "no newer log entries in SubVersion repostory. CVS is current\n";
+	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'};