diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-09-08 15:24:08 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-08 15:24:08 +0000 |
| commit | f467b3b7e0bdb2ee52eb95365ea30c7918b8930f (patch) | |
| tree | aa55adfe5be57020477d7988c308031168c24eb8 /pod/perl58delta.pod | |
| parent | e3d6de9a0eb27f1a5b88b41335738a42fe4bfd44 (diff) | |
| download | perl-f467b3b7e0bdb2ee52eb95365ea30c7918b8930f.tar.gz | |
small fix to perl58delta for MIME::QuotedPrint, from Jarkko
p4raw-id: //depot/perl@17868
Diffstat (limited to 'pod/perl58delta.pod')
| -rw-r--r-- | pod/perl58delta.pod | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pod/perl58delta.pod b/pod/perl58delta.pod index 00be7d64fb..eb4fbc3e6f 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>. |