[svk-commit] r2209 - branches/2.0-releng/utils

[nobody at bestpractical.com]

Author: clkao
Date: Fri Dec  1 16:20:43 2006
New Revision: 2209

Modified:
   branches/2.0-releng/utils/verify-mirror

Log:
Fix verify-mirror for svnsync backend.

Modified: branches/2.0-releng/utils/verify-mirror
==============================================================================
--- branches/2.0-releng/utils/verify-mirror	(original)
+++ branches/2.0-releng/utils/verify-mirror	Fri Dec  1 16:20:43 2006
@@ -9,6 +9,10 @@
 
 my ($repospath, $path, $revision) = @ARGV;
 
+die "repospath required.\n" unless $repospath;
+die "path required.\n" unless $path;
+die "revision.\n" unless $revision;
+
 my $repos = SVN::Repos::open($repospath) or die $!;
 my $depot = SVK::Depot->new( {repos => $repos, repospath => $repospath} );
 
@@ -18,7 +22,7 @@
 my $rabackend = $m->_backend;
 
 my $changed = $t->root->paths_changed;
-my $rev = $m->find_changeset($t->revision);
+my $rev = $m->find_changeset($t->revision) or die "Can't find remote revision for ".$t->revision;
 my $ra = $rabackend->_new_ra;
 
 require SVK::Command::Log;
@@ -29,7 +33,7 @@
         my $pool = SVN::Pool->new($ppool);
         for my $remotepath ( keys %$paths ) {
             $pool->clear;
-            my $localpath = $path . $remotepath;
+            my $localpath = Path::Class::Dir->new_foreign('Unix', $path)->subdir( $remotepath );
             my $local     = delete $changed->{$localpath}
                 or die "$localpath is not in changes";
             my $action = $SVK::Command::Log::chg->[ $local->change_kind ];