From 61f96a9b498f3a341238c3603638943a703acc1b Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 18 Sep 2007 00:29:35 -0700 Subject: [PATCH] allow getmailbody to be exported; remove getmailbody parameter declaration --- Debbugs/MIME.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm index f5d6acd..59ffda4 100644 --- a/Debbugs/MIME.pm +++ b/Debbugs/MIME.pm @@ -18,7 +18,7 @@ use vars qw($VERSION @EXPORT_OK); BEGIN { $VERSION = 1.00; - @EXPORT_OK = qw(parse decode_rfc1522 encode_rfc1522 convert_to_utf8 create_mime_message); + @EXPORT_OK = qw(parse decode_rfc1522 encode_rfc1522 convert_to_utf8 create_mime_message getmailbody); } use File::Path; @@ -31,8 +31,7 @@ use Encode qw(decode encode encode_utf8 decode_utf8 is_utf8); # for encode_rfc1522 use MIME::Words qw(); -sub getmailbody ($); -sub getmailbody ($) +sub getmailbody { my $entity = shift; my $type = $entity->effective_type; -- 2.39.2