allow colons in package names to work with src: bits

diff --git a/make-britney-counts b/make-britney-counts
index b67d1325e906e9ba416d816488bd727e3bffb585..a603b801d6cd0ce306712c8d99d91f22797cbf1b 100755 (executable)
--- a/make-britney-counts
+++ b/make-britney-counts
@@ -44,7 +44,7 @@ my %unstablebugs = ();
 while (my ($nr, $bug) = each %scanlib::bugs) {
        for my $package (split /[,\s]+/, $bug->{'package'}) {
                $package =~ y/A-Z/a-z/;
-               $package = $` if ($package =~ /[^-+._a-z0-9]/);
+               $package = $` if ($package =~ /[^-+._:a-z0-9]/);
 
                # this hack is specific to britney counts, and ignores
                # bugs tagged ignore for the next testing release

diff --git a/scanlib.pm b/scanlib.pm
index 65b3d7a6d3211290af4f8c4d318672f946f5f772..96aee35a063b6768be7f589e713a4cff6bf4ef89 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -238,7 +238,7 @@ sub scanspooldir() {
                }
 
                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{$_}}, $f;
                }