Allow dots in job specifier of input type 'Previous build'

This commit is contained in:
Rob Vermaas 2015-11-17 08:36:46 +00:00
parent b6d2c6f03a
commit dddb9a281d

View file

@ -34,7 +34,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; }) \"