Permalink
Browse files

Don't use the Switch module

It was removed in Perl 5.14.
  • Loading branch information...
1 parent 3eeb035 commit f92a143c5f5a9acd1c995a3e640e44c56fd16230 @edolstra edolstra committed Mar 12, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/script/hydra-build
View
@@ -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;

0 comments on commit f92a143

Please sign in to comment.