From: Hugo van der Sanden <hv@crypt.org>
Date: Sun, 8 Sep 2002 15:24:08 +0000 (+0000)
Subject: small fix to perl58delta for MIME::QuotedPrint, from Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f467b3b7e0bdb2ee52eb95365ea30c7918b8930f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>.