From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 6 Aug 2008 12:18:13 +0000 (+0000)
Subject: Bring the joy of strict to t/harness.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a4933c3f3585f9f2bcf1f67d3162a6cfa64f264;p=p5sagit%2Fp5-mst-13.2.git

Bring the joy of strict to t/harness.

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

diff --git a/t/harness b/t/harness
index d5b2924..1c6bcf1 100644
--- a/t/harness
+++ b/t/harness
@@ -12,6 +12,7 @@ BEGIN {
 my $torture; # torture testing?
 
 use Test::Harness;
+use strict;
 
 $Test::Harness::switches = "";    # Too much noise otherwise
 $Test::Harness::Verbose++ while @ARGV && $ARGV[0] eq '-v' && shift;
@@ -26,7 +27,7 @@ if ($ARGV[0] && $ARGV[0] eq '-torture') {
 $ENV{PERL_CORE} = 1;
 
 #fudge DATA for now.
-%datahandle = qw(
+my %datahandle = qw(
 		lib/bigint.t		1
 		lib/bigintpm.t		1
 		lib/bigfloat.t	 	1
@@ -45,7 +46,7 @@ foreach (keys %datahandle) {
      unlink "$_.t";
 }
 
-my @tests = ();
+my (@tests, $re);
 
 # [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
 @ARGV = grep $_ && length( $_ ) => @ARGV;