typo: pack "c" ist für signed byte, pack "C" für unsigned byte

diff --git a/SL/MoreCommon.pm b/SL/MoreCommon.pm
index 1b83653..1c1e001 100644 (file)
--- a/SL/MoreCommon.pm
+++ b/SL/MoreCommon.pm
@@ -176,7 +176,7 @@ sub uri_decode {
   $str =~ tr/+/ /;
   $str =~ s/\\$//;
 
-  $str =~ s/%([0-9a-fA-Z]{2})/pack("c",hex($1))/eg;
+  $str =~ s/%([0-9a-fA-Z]{2})/pack("C",hex($1))/eg;
   $str =  Encode::decode('utf-8-strict', $str) if $::locale->is_utf8;
 
   return $str;