From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 3 Nov 2005 01:45:45 +0000 (+0000)
Subject: Make harness warning-free when running with -Mdiagnostics
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1255842222d74612a763d6a1e3384771918fd55a;p=p5sagit%2Fp5-mst-13.2.git

Make harness warning-free when running with -Mdiagnostics

p4raw-id: //depot/perl@25966
---

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;