[Bps-public-commit] r15856 - in SVN-Mirror/trunk: lib/SVN

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 07:43:25 2008
New Revision: 15856

Modified:
   SVN-Mirror/trunk/   (props changed)
   SVN-Mirror/trunk/lib/SVN/Mirror.pm

Log:
 r413 at mtl:  clkao | 2008-06-01 09:36:34 +0800
 Fix tests for svn 1.5.0 which somehow had rev 0 returned from
 history traversal.
 


Modified: SVN-Mirror/trunk/lib/SVN/Mirror.pm
==============================================================================
--- SVN-Mirror/trunk/lib/SVN/Mirror.pm	(original)
+++ SVN-Mirror/trunk/lib/SVN/Mirror.pm	Mon Sep  8 07:43:25 2008
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 package SVN::Mirror;
-our $VERSION = '0.73';
+our $VERSION = '0.74';
 use SVN::Core;
 use SVN::Repos;
 use SVN::Fs;
@@ -473,13 +473,14 @@
 	my $ipool = SVN::Pool->new_default_sub;
 	while ($hist = $hist->prev (0)) {
 	    my (undef, $rev) = $hist->location;
+            next unless $rev;
 	    my $rrev = $fs->revision_prop ($rev, "svm:headrev:$source");
 	    if (defined $rrev) {
 		$fs->change_rev_prop ($rev, "svm:headrev:$source", undef);
 		$fs->change_rev_prop ($rev, "svm:headrev", "$uuid:$rrev\n");
 	    }
 	    else {
-		die "no headrev" unless $source =~ m/^(?:cvs|p4)/;
+		Carp::carp "no headrev" unless $source =~ m/^(?:cvs|p4)/;
 	    }
 	    $ipool->clear;
 	}