From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 19 Feb 2009 04:40:36 +0000 (-0800)
Subject: allow fields to be exported
X-Git-Tag: release/2.6.0~461^2~61
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a52ba4882e2ad0b060a0feb0893bd4bbf9aa6f8b;p=debbugs.git

allow fields to be exported
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 3e211b67..be296fd4 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -64,9 +64,10 @@ BEGIN{
 				  qw(removefoundversions removefixedversions)
 				 ],
 		     hook     => [qw(bughook bughook_archive)],
+		     fields   => [qw(%fields)],
 		    );
      @EXPORT_OK = ();
-     Exporter::export_ok_tags(qw(status read write versions hook));
+     Exporter::export_ok_tags(qw(status read write versions hook fields));
      $EXPORT_TAGS{all} = [@EXPORT_OK];
 }
 
@@ -81,8 +82,9 @@ location. Valid locations are those understood by L</getbugcomponent>
 
 =cut
 
-
-my %fields = (originator     => 'submitter',
+# these probably shouldn't be imported by most people, but
+# Debbugs::Control needs them, so they're now exportable
+our %fields = (originator     => 'submitter',
               date           => 'date',
               subject        => 'subject',
               msgid          => 'message-id',