1 files changed, 14 insertions, 16 deletions

diff --git a/tools/multigcc.pl b/tools/multigcc.pl
index 9be9978bd4..c272ebae08 100755..100644
--- a/tools/multigcc.pl
+++ b/tools/multigcc.pl
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-use Switch;
 use List::Util 'shuffle'; # standard from Perl 5.8 and later
 
 my $tempfile = "multigcc.out";
@@ -26,23 +25,22 @@ my $command = join " ", @params;
 
 # count number of cores
 my $cores;
-switch($^O) {
-    case "darwin" {
-        chomp($cores = `sysctl -n hw.ncpu`);
-        $cores = 1 if ($?);
-    }
-    case "solaris" {
-        $cores = scalar grep /on-line/i, `psrinfo`;
-        $cores = 1 if ($?);
+# Don't use given/when here - it's not compatible with old perl versions
+if ($^O eq 'darwin') {
+    chomp($cores = `sysctl -n hw.ncpu`);
+    $cores = 1 if ($?);
+}
+elsif ($^O eq 'solaris') {
+    $cores = scalar grep /on-line/i, `psrinfo`;
+    $cores = 1 if ($?);
+}
+else {
+    if (open CPUINFO, "</proc/cpuinfo") {
+        $cores = scalar grep /^processor/i, <CPUINFO>;
+        close CPUINFO;
     }
     else {
-        if (open CPUINFO, "</proc/cpuinfo") {
-            $cores = scalar grep /^processor/i, <CPUINFO>;
-            close CPUINFO;
-        }
-        else {
-            $cores = 1;
-        }
+        $cores = 1;
     }
 }