=cut
-my %_parsedaddrs;
+our %_parsedaddrs;
sub getparsedaddrs {
my $addr = shift;
return () unless defined $addr;
return wantarray?@{$_parsedaddrs{$addr}}:$_parsedaddrs{$addr}[0];
}
-my $_maintainer;
-my $_maintainer_rev;
+our $_maintainer;
+our $_maintainer_rev;
sub getmaintainers {
return $_maintainer if $_maintainer;
my %maintainer;
=cut
-my @filelocks;
+our @filelocks;
our @cleanups;
sub filelock {
=cut
-my $_pkgsrc;
-my $_pkgcomponent;
-my $_srcpkg;
+our $_pkgsrc;
+our $_pkgcomponent;
+our $_srcpkg;
sub getpkgsrc {
return $_pkgsrc if $_pkgsrc;
return {} unless defined $Debbugs::Packages::gPackageSource;
=cut
-my %_binarytosource;
+our %_binarytosource;
sub binarytosource {
my ($binname, $binver, $binarch) = @_;
=cut
-my %_sourcetobinary;
+our %_sourcetobinary;
sub sourcetobinary {
my ($srcname, $srcver) = @_;
=cut
-my %_versions;
+our %_versions;
sub getversions {
my ($pkg, $dist, $arch) = @_;
return () unless defined $gVersionIndex;
=cut
-my %_sourceversioncache = ();
+our %_sourceversioncache = ();
sub makesourceversions {
my $pkg = shift;
my $arch = shift;
=cut
# This will eventually need to be fixed before we start using mod_perl
-my $version_cache = {};
+our $version_cache = {};
sub bug_archiveable{
my %param = validate_with(params => \@_,
spec => {bug => {type => SCALAR,