* fix package name regex to handle src: properly
my ($dir) = @_;
my $f; # While we're currently processing
my @list; # List of files to process
my ($dir) = @_;
my $f; # While we're currently processing
my @list; # List of files to process
my $filename = shift;
open STATUS, "<", $filename
or die "$filename: $!";
my $filename = shift;
open STATUS, "<", $filename
or die "$filename: $!";
$bugs{$bug->{'number'}} = $bug;
for my $package (split /[,\s]+/, $bug->{'package'}) {
$bugs{$bug->{'number'}} = $bug;
for my $package (split /[,\s]+/, $bug->{'package'}) {
- $_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
+ $_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._:a-z0-9]/;
push @{$packagelist{$_}}, $bug->{'number'};
}
}
push @{$packagelist{$_}}, $bug->{'number'};
}
}