Tweak the test script
authorIan Lynagh <igloo@earth.li>
Sat, 21 Jul 2007 22:49:13 +0000 (22:49 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 21 Jul 2007 22:49:13 +0000 (22:49 +0000)
tests/hpcrun.pl

index 2b9cdb5..7d1bbdc 100644 (file)
@@ -3,17 +3,18 @@
 #
 
 while($ARGV[0] =~ /^--/) {
-  if ($ARGV[0] =~ /--hpc=(.*)/) {
-    shift @ARGV;
-    $HPC = $1;       
+  $arg = shift @ARGV;
+  if ($arg =~ /--hpc=(.*)/) {
+    $HPC = $1;
   }
-  if ($ARGV[0] =~ /--report/) {
-    shift @ARGV;
-    $REPORT = 1;       
+  elsif ($arg =~ /--report/) {
+    $REPORT = 1;
   }
-  if ($ARGV[0] =~ /--exeext=(.*)/) {
-    shift @ARGV;
-    $exeext = $1;       
+  elsif ($arg =~ /--exeext=(.*)/) {
+    $exeext = $1;
+  }
+  else {
+    die "Bad arg: $arg"
   }
 }