lix-project/hydra
3
0
Fork 6
Code Issues Pull requests 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 Net::Twitter::Lite;
use Data::Dump qw(dump);
use Switch;
use feature qw/switch/;
STDOUT->autoflush();
@ -61,11 +61,11 @@ sub statusDescription {
my ($buildstatus) = @_;
my $status = "Failed";
switch ($buildstatus) {
case 0 { $status = "Success"; }
case 1 { $status = "Failed with non-zero exit code"; }
case 2 { $status = "Dependency failed"; }
case 4 { $status = "Cancelled"; }
given ($buildstatus) {
when (0) { $status = "Success"; }
when (1) { $status = "Failed with non-zero exit code"; }
when (2) { $status = "Dependency failed"; }
when (4) { $status = "Cancelled"; }
}
return $status;