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

This commit is contained in:
Rob Vermaas 2012-01-06 23:04:48 +01:00
parent 203a9b9ad7
commit 9b4f09ba83

View file

@ -68,7 +68,7 @@ sub parseJobName {
our $key; our $key;
our %attrs = (); our %attrs = ();
# hm, maybe I should stop programming Perl before it's too late... # hm, maybe I should stop programming Perl before it's too late...
$s =~ / ^ (?: (?: ([\w\-]+) : )? ([\w\-]+) : )? ([\w\-]+) \s* $s =~ / ^ (?: (?: ([\w\-]+) : )? ([\w\-]+) : )? ([\w\-\.]+) \s*
(\[ \s* ( (\[ \s* (
([\w]+) (?{ $key = $^N; }) \s* = \s* \" ([\w]+) (?{ $key = $^N; }) \s* = \s* \"
([\w\-]+) (?{ $attrs{$key} = $^N; }) \" ([\w\-]+) (?{ $attrs{$key} = $^N; }) \"