Bug 194125 - CGI.pl perl warning: Character in "c" format wrapped

r,a=justdave

diff --git a/CGI.pl b/CGI.pl
index a6d3e22448205f02e4fdad19f2d6cf6d9e350ae5..de983122b14eabb4c126c455b502df0168bfd10a 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -80,7 +80,7 @@ if (Param("shutdownhtml") && $0 !~ m:[\\/](do)?editparams.cgi$:) {
 sub url_decode {
     my ($todecode) = (@_);
     $todecode =~ tr/+/ /;       # pluses become spaces
-    $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
+    $todecode =~ s/%([0-9a-fA-F]{2})/pack("C",hex($1))/ge;
     return $todecode;
 }