From 5800c7acd8283b7a5fe7e14692ebc06d792f4cf8 Mon Sep 17 00:00:00 2001 From: cjwatson <> Date: Wed, 16 Mar 2005 20:42:13 -0800 Subject: [PATCH] [project @ 2005-03-16 20:42:13 by cjwatson] Rename de_rfc1522 to decode_rfc1522 to allow for a sensibly-named encode partner. --- Debbugs/MIME.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm index fac17f5..7613e19 100644 --- a/Debbugs/MIME.pm +++ b/Debbugs/MIME.pm @@ -8,13 +8,13 @@ use vars qw($VERSION @EXPORT_OK); BEGIN { $VERSION = 1.00; - @EXPORT_OK = qw(parse de_rfc1522); + @EXPORT_OK = qw(parse decode_rfc1522); } use File::Path; use MIME::Parser; -# for de_rfc1522 +# for decode_rfc1522 use MIME::WordDecoder qw(); use Unicode::MapUTF8 qw(to_utf8 utf8_supported_charset); @@ -102,9 +102,9 @@ sub parse ($) # Bug #61342 et al. -=head2 de_rfc1522 +=head2 decode_rfc1522 - de_rfc1522('=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= ') + decode_rfc1522('=?iso-8859-1?Q?D=F6n_Armstr=F3ng?= ') Turn RFC-1522 names into the UTF-8 equivalent. @@ -125,7 +125,7 @@ BEGIN { }])); } -sub de_rfc1522 ($) +sub decode_rfc1522 ($) { my ($string) = @_; -- 2.39.2