From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 10 Jul 2012 02:28:17 +0000 (-0700)
Subject: fix export tags in MIME
X-Git-Tag: release/2.6.0~367^2~14
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=9501bf7323cb40d0365f589fad6068dba4c48a45

fix export tags in MIME
use vars $DEBUG
---

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index f9b58c9..481be7b 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -31,7 +31,7 @@ use warnings;
 use strict;
 
 use base qw(Exporter);
-use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT);
+use vars qw($DEBUG $VERSION @EXPORT_OK %EXPORT_TAGS @EXPORT);
 
 BEGIN {
     $VERSION = 1.00;
@@ -39,9 +39,9 @@ BEGIN {
 
     @EXPORT = ();
 
-    %EXPORT_TAGS = (mime => qw(parse create_mime_message getmailbody),
-		    rfc1522 => qw(decode_rfc1522 encode_rfc522),
-		    utf8 => qw(convert_to_utf8),
+    %EXPORT_TAGS = (mime => [qw(parse create_mime_message getmailbody)],
+		    rfc1522 => [qw(decode_rfc1522 encode_rfc1522)],
+		    utf8 => [qw(convert_to_utf8)],
 		   );
     @EXPORT_OK=();
     Exporter::export_ok_tags(keys %EXPORT_TAGS);