- Fix port auto-assign regexps

freebsd · Nov 22, 2015 · 2be64a5 · 2be64a5
1 parent 147831a
commit 2be64a5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/extensions/FBSDAutoAssign/Extension.pm b/extensions/FBSDAutoAssign/Extension.pm
@@ -70,7 +70,7 @@ sub bug_end_of_create {
     my @foundports = ();
 
     # Is it a port patch in summary matching ([A-Za-z0-9_-]/[A-Za-z0-9_-])?
-    my @res = ($bug->short_desc =~ /(?:^|[:\[\s+])([\w-]+\/[\w-\.]+)(?:[:\]\s+]|$)/g);
+    my @res = ($bug->short_desc =~ /(?:^|[:\[\s+])([\w\-]+\/[\w\-\.]+)(?:[:\]\s+]|$)/g);
     if (@res && scalar(@res) > 0) {
         # warn("Found ports in summary: @res");
         push(@foundports, @res);
@@ -81,7 +81,7 @@ sub bug_end_of_create {
         # Is it a port in the description matching
         #  ([A-Za-z0-9_-]/[A-Za-z0-9_-])?
         my $first = $bug->comments->[0]->body;
-        @res = ($first =~ /(?:^|[:,\s+])([\w-]+\/[\w-\.]+)(?:[:,\s+]|$)/g);
+        @res = ($first =~ /(?:^|[:,\s+])([\w\-]+\/[\w\-\.]+)(?:[:,\s+]|$)/g);
         if (@res && scalar(@res) > 0) {
             # warn("Found ports in description: @res");
             push(@foundports, @res);
@@ -102,7 +102,7 @@ sub bug_end_of_create {
         my $maintainer = _get_maintainer($port);
         if ($maintainer) {
             push(@maintainers, $maintainer);
-            push(@categories, $port =~ /^([\w-]+)\/[\w-\.]+$/g);
+            push(@categories, $port =~ /^([\w\-]+)\/[\w\-\.]+$/g);
         }
     }