[mirrorbrain-commits] r8392 - /trunk/tools/scanner.pl

Author: poeml
Date: Sun Feb  9 14:58:06 2014
New Revision: 8392

URL: http://svn.mirrorbrain.org/viewvc/mirrorbrain?rev=8392&view=rev
Log:
scanner:
- fix HTML parsing of filenames with UTF-8 characters (issue #149)

Modified:
    trunk/tools/scanner.pl

Modified: trunk/tools/scanner.pl
URL: http://svn.mirrorbrain.org/viewvc/mirrorbrain/trunk/tools/scanner.pl?rev=8392&r1=8391&r2=8392&view=diff
==============================================================================
--- trunk/tools/scanner.pl	(original)
+++ trunk/tools/scanner.pl	Sun Feb  9 14:58:06 2014
_at_@ -594,7 +594,7 @@
           print "$identifier: date $date\n";
           print "$identifier: size $size\n";
         }
-        $name1 =~ s{%([\da-fA-F]{2})}{pack 'c', hex $1}ge;
+        $name1 =~ s{%([\da-fA-F]{2})}{pack 'U', hex $1}ge;
         $name1 =~ s{^\./}{};
         my $dir = 1 if $pre =~ m{"\[DIR\]"};
         #print "$identifier: $pre^$name1^$date^$size\n" if $verbose > 1;
_at_@ -651,7 +651,7 @@
           print "$identifier: date $date\n";
           print "$identifier: size $size\n";
         }
-        $name1 =~ s{%([\da-fA-F]{2})}{pack 'c', hex $1}ge;
+        $name1 =~ s{%([\da-fA-F]{2})}{pack 'U', hex $1}ge;
         $name1 =~ s{^\./}{};
         my $dir = 1 if $pre =~ m{>Directory<};
         my $t = length($name) ? "$name/$name1" : $name1;




_______________________________________________
mirrorbrain-commits mailing list
Archive: http://mirrorbrain.org/archive/mirrorbrain-commits/

Note: To remove yourself from this list, send a mail with the content
 	unsubscribe
to the address mirrorbrain-commits-request_at_mirrorbrain.org