From a52ba4882e2ad0b060a0feb0893bd4bbf9aa6f8b Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Wed, 18 Feb 2009 20:40:36 -0800 Subject: [PATCH] allow fields to be exported --- Debbugs/Status.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm index 3e211b6..be296fd 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 =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', -- 2.39.2