Fix jobset update

Signed-off-by: Shea Levy <shea@shealevy.com>
This commit is contained in:
Shea Levy 2013-07-05 14:44:29 -04:00
parent 93a14ccf32
commit be3ca0dd84

View file

@ -284,7 +284,7 @@ sub checkInputValue {
sub updateJobset { sub updateJobset {
my ($c, $jobset) = @_; my ($c, $jobset) = @_;
my $jobsetName = $c->stash->{jobsetName} or $jobset->name; my $jobsetName = $c->stash->{jobsetName} // $jobset->name;
error($c, "Invalid jobset name: $jobsetName") if $jobsetName !~ /^$jobsetNameRE$/; error($c, "Invalid jobset name: $jobsetName") if $jobsetName !~ /^$jobsetNameRE$/;
# When the expression is in a .scm file, assume it's a Guile + Guix # When the expression is in a .scm file, assume it's a Guile + Guix