Message-Id: <20020404155939.6754.qmail@plover.com>
authorMark-Jason Dominus <mjd@plover.com>
Thu, 4 Apr 2002 15:59:39 +0000 (15:59 +0000)
committerAbhijit Menon-Sen <ams@wiw.org>
Thu, 4 Apr 2002 17:08:13 +0000 (17:08 +0000)
p4raw-id: //depot/perl@15732

pod/perlfaq9.pod

index 242bd49..947c769 100644 (file)
@@ -251,9 +251,9 @@ function to handle encoding.
 The best source of detailed information on URI encoding is RFC 2396.
 Basically, the following substitutions do it:
 
-    s/([^\w()'*~!.-])/sprintf '%%%02x', $1/eg;   # encode
+    s/([^\w()'*~!.-])/sprintf '%%%02x', ord $1/eg;   # encode
 
-    s/%([A-Fa-f\d]{2})/chr hex $1/eg;            # decode
+    s/%([A-Fa-f\d]{2})/chr hex $1/eg;                # decode
 
 However, you should only apply them to individual URI components, not
 the entire URI, otherwise you'll lose information and generally mess