1 files changed, 5 insertions, 5 deletions

diff --git a/tools/multigcc.pl b/tools/multigcc.pl
index 9be9978bd4..e263638d9d 100755
--- a/tools/multigcc.pl
+++ b/tools/multigcc.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-use Switch;
+use feature "switch";
 use List::Util 'shuffle'; # standard from Perl 5.8 and later
 
 my $tempfile = "multigcc.out";
@@ -26,16 +26,16 @@ my $command = join " ", @params;
 
 # count number of cores
 my $cores;
-switch($^O) {
-    case "darwin" {
+given ($^O) {
+    when ("darwin") {
         chomp($cores = `sysctl -n hw.ncpu`);
         $cores = 1 if ($?);
     }
-    case "solaris" {
+    when ("solaris") {
         $cores = scalar grep /on-line/i, `psrinfo`;
         $cores = 1 if ($?);
     }
-    else {
+    default {
         if (open CPUINFO, "</proc/cpuinfo") {
             $cores = scalar grep /^processor/i, <CPUINFO>;
             close CPUINFO;