allow colons in package names to work with src: bits
authorDon Armstrong <don@donarmstrong.com>
Mon, 22 Feb 2010 08:07:53 +0000 (00:07 -0800)
committerDon Armstrong <don@donarmstrong.com>
Mon, 22 Feb 2010 08:07:53 +0000 (00:07 -0800)
make-britney-counts
scanlib.pm

index b67d132..a603b80 100755 (executable)
@@ -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
index 65b3d7a..96aee35 100644 (file)
@@ -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;
                }