use Debbugs::Versions;
use Debbugs::Status;
use Fcntl qw(O_RDONLY);
+use IO::File;
+use IO::Dir;
use File::Basename;
use lib dirname(__FILE__);
my $taginfo = get_taginfo($bi);
my $relinfo = get_relinfo($bi);
- $bugs{$f} = $bi;
+ $bugs->{$f} = $bi;
}
+ return $bugs;
}
or die "$filename: $!";
while (1) {
- chomp (my $type = <STATUS>);
+ my $type = <STATUS>;
+ last if not defined $type;
+ chomp $type;
if ($type eq 'package') {
chomp (my $package = <STATUS>);
chomp (my $section = <STATUS>);