Bring the joy of strict (and warnings) to lib/File/stat.t

diff --git a/lib/File/stat.t b/lib/File/stat.t
index c98d64d..eb8fdd0 100644 (file)
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -5,9 +5,13 @@ BEGIN {
     @INC = '../lib';
 }
 
     @INC = '../lib';
 }
 

+use strict;
+use warnings;

 use Test::More;
 use Config qw( %Config );
 
 use Test::More;
 use Config qw( %Config );
 

+my $file;
+

 BEGIN {
     # Check whether the build is configured with -Dmksymlinks
     our $Dmksymlinks =
 BEGIN {
     # Check whether the build is configured with -Dmksymlinks
     our $Dmksymlinks =


@@ -18,7 +22,7 @@ BEGIN {
     # with -Dmksymlinks
     # Originally we worked with ./TEST, but other test scripts read from
     # that file and modify its access time.
     # with -Dmksymlinks
     # Originally we worked with ./TEST, but other test scripts read from
     # that file and modify its access time.

-    our $file = '../lib/File/stat.t';
+    $file = '../lib/File/stat.t';

     if ( $Dmksymlinks ) {
         $file = readlink $file;
         die "Can't readlink(../lib/File/stat.t): $!" if ! defined $file;
     if ( $Dmksymlinks ) {
         $file = readlink $file;
         die "Can't readlink(../lib/File/stat.t): $!" if ! defined $file;


@@ -131,7 +135,6 @@ SKIP: {
 {   # 111640 - File::stat bogus index check in overload
 
     use filetest "access";
 {   # 111640 - File::stat bogus index check in overload
 
     use filetest "access";

-    use warnings;

     for my $op (split //, "rwxRXW") {
        # these should all warn with filetest access
        my $w;
     for my $op (split //, "rwxRXW") {
        # these should all warn with filetest access
        my $w;