253 |
do { |
do { |
254 |
if ($tmpsvn =~ s#(/[^/]+)/*$##) { |
if ($tmpsvn =~ s#(/[^/]+)/*$##) { |
255 |
$SVNREP = $1 . $SVNREP; |
$SVNREP = $1 . $SVNREP; |
256 |
|
} elsif ($e->{'paths'}->{'path'}->[0]->{'copyfrom-path'}) { |
257 |
|
print "NOTICE: copyfrom outside synced repository ignored - skipping\n"; |
258 |
|
next; |
259 |
} else { |
} else { |
260 |
print "NOTICE: can't deduce svn dir from $SVNROOT - skipping\n"; |
print "NOTICE: can't deduce svn dir from $SVNROOT - skipping\n"; |
261 |
next; |
next; |
270 |
foreach my $p (@{$e->{'paths'}->{'path'}}) { |
foreach my $p (@{$e->{'paths'}->{'path'}}) { |
271 |
my ($action,$path) = ($p->{'action'},$p->{'content'}); |
my ($action,$path) = ($p->{'action'},$p->{'content'}); |
272 |
|
|
273 |
|
next if ($path =~ m#/\.svnrev$#); |
274 |
|
|
275 |
print "svn2cvs: $action $path\n"; |
print "svn2cvs: $action $path\n"; |
276 |
|
|
277 |
# prepare path and message |
# prepare path and message |