From f6614ae29a5e6477ba5fd12bd1d7b81944482d8e Mon Sep 17 00:00:00 2001
From: gecko <>
Date: Mon, 1 May 2000 22:50:38 -0800
Subject: [PATCH] [project @ 2000-05-01 23:50:38 by gecko] Added the BTags hash

---
 Debbugs/DBase.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 67e97d3c..f1d45d42 100644
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -13,12 +13,12 @@ BEGIN {
 	$VERSION     = 1.00;
 
 	@ISA         = qw(Exporter);
-	@EXPORT      = qw( %Record );
+	@EXPORT      = qw( %Record %BTags);
 	%EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
 
 	# your exported package globals go here,
 	# as well as any optionally exported functions
-	@EXPORT_OK   = qw( %Record );
+	@EXPORT_OK   = qw( %Record %BTags);
 }
 
 use vars      @EXPORT_OK;
@@ -36,6 +36,7 @@ use File::Basename qw(&dirname);
 use File::Path;
 
 %Record = ();
+%BTags= ( );
 
 my $LoadedRecord = 0;
 my $OpenedRecord = 0;
@@ -60,7 +61,7 @@ sub ParseVersion1Record
 	$Record{ $tag } = $line;
     	print "\t $tag = $line\n" if $Globals{ 'debug' } > 1;
 	$i++;
-	$GTags{ "BUG_$tag" } = $line;
+	$BTags{ "BUG_$tag" } = $line;
     }
 }
 
-- 
2.39.5