X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fharness;h=b5e3e872f1b1126fb1014e82ba8d67f082385bfc;hb=63fa9adcade8ebea86e41864381690cdfea27db9;hp=e3e02f5cedbd947064cce7f744e5e39aceb3b8c7;hpb=8a76aa1f201f195cea47d9c3db2cada8aeafe866;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/harness b/t/harness
index e3e02f5..b5e3e87 100644
--- a/t/harness
+++ b/t/harness
@@ -16,7 +16,7 @@ use Test::Harness;
 $Test::Harness::switches = "";    # Too much noise otherwise
 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
 
-if ($ARGV[0] eq '-torture') {
+if ($ARGV[0] && $ARGV[0] eq '-torture') {
     shift;
     $torture = 1;
 }
@@ -54,7 +54,7 @@ sub _populate_hash {
     return map {$_, 1} split /\s+/, $_[0];
 }
 
-if ($ARGV[0]=~/^-re/) {
+if ($ARGV[0] && $ARGV[0]=~/^-re/) {
     if ($ARGV[0]!~/=/) {
         shift;
         $re=join "|",@ARGV;