$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;
use File::Path;
%Record = ();
+%BTags= ( );
my $LoadedRecord = 0;
my $OpenedRecord = 0;
$Record{ $tag } = $line;
print "\t $tag = $line\n" if $Globals{ 'debug' } > 1;
$i++;
- $GTags{ "BUG_$tag" } = $line;
+ $BTags{ "BUG_$tag" } = $line;
}
}