SVN: toys/rsget.pl/t/check

[sparky]

Author: sparky
Date: Mon Feb 22 03:42:15 2010
New Revision: 11157

Modified:
   toys/rsget.pl/t/check
Log:
- decode file names


Modified: toys/rsget.pl/t/check
==============================================================================
--- toys/rsget.pl/t/check	(original)
+++ toys/rsget.pl/t/check	Mon Feb 22 03:42:15 2010
@@ -2,11 +2,12 @@
 
 use strict;
 use warnings;
+use URI::Escape;
 
 my $file = undef;
 while ( <> ) {
 	if ( /^DONE:(?: | .+ )fname=(\S+) / ) {
-		$file = $1;
+		$file = uri_unescape( $1 );
 	} elsif ( s/^#\s*md5sum:\s*// ) {
 		my $md5 = `md5sum $file`;
 		if ( $md5 ne $_ ) {