allow dots (.) in job names when used as build input

2012-01-06 23:04:48 +01:00
parent 203a9b9ad7
commit 9b4f09ba83
1 changed files with 1 additions and 1 deletions
--- a/src/lib/Hydra/Helper/AddBuilds.pm
+++ b/src/lib/Hydra/Helper/AddBuilds.pm
@@ -68,7 +68,7 @@ sub parseJobName {
    our $key;
    our %attrs = ();
    # hm, maybe I should stop programming Perl before it's too late...
-    $s =~ / ^ (?: (?: ([\w\-]+) : )? ([\w\-]+) : )? ([\w\-]+) \s*
+    $s =~ / ^ (?: (?: ([\w\-]+) : )? ([\w\-]+) : )? ([\w\-\.]+) \s*
            (\[ \s* (
              ([\w]+) (?{ $key = $^N; }) \s* = \s* \"
              ([\w\-]+) (?{ $attrs{$key} = $^N; }) \"