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

[nobody at bestpractical.com]

Author: clkao
Date: Tue Dec  5 09:59:30 2006
New Revision: 2216

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

Log:
Fix verify-mirror for checking copyfrom_path with mirrors on root.

Modified: branches/2.0-releng/utils/verify-mirror
==============================================================================
--- branches/2.0-releng/utils/verify-mirror	(original)
+++ branches/2.0-releng/utils/verify-mirror	Tue Dec  5 09:59:30 2006
@@ -52,7 +52,7 @@
                     unless $m->find_changeset($lfrom_rev)
                     == $paths->{$remotepath}->copyfrom_rev;
                 die "copy from path different for $localpath"
-                    unless $path . $from eq $lfrom;
+                    unless Path::Class::Dir->new_foreign('Unix', $path)->subdir( $from ) eq $lfrom;
 
             }