small fix to perl58delta for MIME::QuotedPrint, from Jarkko

p4raw-id: //depot/perl@17868

diff --git a/pod/perl58delta.pod b/pod/perl58delta.pod
index 00be7d6..eb4fbc3 100644 (file)
--- a/pod/perl58delta.pod
+++ b/pod/perl58delta.pod
@@ -1012,10 +1012,11 @@ in quoted-printable encoding, as defined in RFC 2045 - I<MIME
 
     use MIME::QuotedPrint;
 
-    $encoded = encode_qp("Smiley in Unicode: \x{263a}");
+    $encoded = encode_qp("\xDE\xAD\xBE\xEF");
     $decoded = decode_qp($encoded);
 
-    print $encoded, "\n"; # "Smiley in Unicode: =263A"
+    print $encoded, "\n"; # "=DE=AD=BE=EF\n"
+    print $decoded, "\n"; # "\xDE\xAD\xBE\xEF\n"
 
 See also L<PerlIO::via::QuotedPrint>.