=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;