From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 18 Sep 2007 07:29:35 +0000 (-0700)
Subject: allow getmailbody to be exported; remove getmailbody parameter declaration
X-Git-Tag: release/2.6.0~510^2~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=61f96a9b498f3a341238c3603638943a703acc1b;p=debbugs.git

allow getmailbody to be exported; remove getmailbody parameter declaration
---

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;