allow colons in package names to work with src: bits

[bugscan.git] / scanlib.pm

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'}) {
                }
 
                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;
                }
 
                        push @{$packagelist{$_}}, $f;
                }