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 $_ ) {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
