lix-project/hydra
3
0
Fork 6
Code Issues 2 Pull requests 1 Packages Projects Releases Wiki Activity

Don't use the Switch module

Browse source 
It was removed in Perl 5.14.
This commit is contained in:
Eelco Dolstra 2012-03-12 20:41:45 +01:00
parent 87e4d43848
commit a4cda5e337
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/script/hydra-build
View file

@ -17,7 +17,7 @@ use Text::Table;
use POSIX qw(strftime); use POSIX qw(strftime);
use Net::Twitter::Lite; use Net::Twitter::Lite;
use Data::Dump qw(dump); use Data::Dump qw(dump);
use Switch; use feature qw/switch/;
STDOUT->autoflush(); STDOUT->autoflush();
@ -61,11 +61,11 @@ sub statusDescription {
my ($buildstatus) = @_; my ($buildstatus) = @_;
my $status = "Failed"; my $status = "Failed";
switch ($buildstatus) { given ($buildstatus) {
case 0 { $status = "Success"; } when (0) { $status = "Success"; }
case 1 { $status = "Failed with non-zero exit code"; } when (1) { $status = "Failed with non-zero exit code"; }
case 2 { $status = "Dependency failed"; } when (2) { $status = "Dependency failed"; }
case 4 { $status = "Cancelled"; } when (4) { $status = "Cancelled"; }
} }
return $status; return $status;