SVN: toys/rsget.pl/RSGet/Curl.pm

[sparky]

Author: sparky
Date: Thu Apr 29 20:03:57 2010
New Revision: 11351

Modified:
   toys/rsget.pl/RSGet/Curl.pm
Log:
- make sure file names encoded in utf8 don't cause problems


Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm	(original)
+++ toys/rsget.pl/RSGet/Curl.pm	Thu Apr 29 20:03:57 2010
@@ -16,6 +16,7 @@
 use File::Copy;
 use File::Path;
 use Fcntl qw(SEEK_SET);
+use Encode;
 set_rev qq$Id$;
 
 def_settings(
@@ -297,6 +298,7 @@
 		$eurl =~ s/\?.*$//;
 		$fname = de_ml( uri_unescape( $eurl ) );
 	}
+	$fname = encode_utf8( decode_utf8( $fname ) );
 
 	if ( my $fn = $supercurl->{fname} ) {
 		if ( $fname ne $fn ) {