[svk-commit] r2292 - trunk/utils

[nobody at bestpractical.com]

Author: clkao
Date: Fri Jan 19 00:09:21 2007
New Revision: 2292

Modified:
   trunk/utils/verify-mirror

Log:
Escape uri for verify-mirror.

Modified: trunk/utils/verify-mirror
==============================================================================
--- trunk/utils/verify-mirror	(original)
+++ trunk/utils/verify-mirror	Fri Jan 19 00:09:21 2007
@@ -6,6 +6,7 @@
 no warnings 'once';
 use SVK;
 use SVK::XD;
+use URI::Escape 'uri_escape';
 
 my ($repospath, $path, $revision) = @ARGV;
 
@@ -62,7 +63,7 @@
 
                 # do md5 comparison
                 my $fra = $rabackend->_new_ra(
-                    url => $m->url . ( $parent eq '/' ? '' : $parent ) );
+                    url => uri_escape( $m->url . ( $parent eq '/' ? '' : $parent ), '^A-Za-z0-9\-_.!~*\'():/' ) );
 
                 # XXX: do_status requires svn trunk, and the required
                 # changed should be merged to 1.4.3