Change 34172: Bring the joy of strict to t/harness.

[Nicholas Clark]

Change 34172 by [EMAIL PROTECTED] on 2008/08/06 12:18:13

        Bring the joy of strict to t/harness.

Affected files ...

... //depot/perl/t/harness#45 edit

Differences ...

==== //depot/perl/t/harness#45 (text) ====
Index: perl/t/harness
--- perl/t/harness#44~32856~    2008-01-05 12:25:52.000000000 -0800
+++ perl/t/harness      2008-08-06 05:18:13.000000000 -0700
@@ -12,6 +12,7 @@
 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 @@
 $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 @@
      unlink "$_.t";
 }
 
-my @tests = ();
+my (@tests, $re);
 
 # [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
 @ARGV = grep $_ && length( $_ ) => @ARGV;
End of Patch.