diff options
| -rw-r--r-- | lib/File/Basename.pm | 3 | ||||
| -rw-r--r-- | lib/File/CheckTree.pm | 4 | ||||
| -rw-r--r-- | lib/File/Compare.pm | 3 | ||||
| -rw-r--r-- | lib/File/Copy.pm | 3 | ||||
| -rw-r--r-- | lib/File/DosGlob.pm | 1 | ||||
| -rw-r--r-- | lib/File/Find.pm | 3 | ||||
| -rw-r--r-- | lib/File/Path.pm | 3 | ||||
| -rw-r--r-- | lib/File/stat.pm | 3 | ||||
| -rwxr-xr-x | t/lib/filecopy.t | 6 |
9 files changed, 16 insertions, 13 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 297386f57b..14522437e9 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -135,7 +135,8 @@ BEGIN { -use 5.005_64; +use 5.6.0; +use warnings; our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase); require Exporter; @ISA = qw(Exporter); diff --git a/lib/File/CheckTree.pm b/lib/File/CheckTree.pm index 8b6ae0805a..35f7906e53 100644 --- a/lib/File/CheckTree.pm +++ b/lib/File/CheckTree.pm @@ -2,8 +2,9 @@ package File::CheckTree; our $VERSION = '4.1'; -require 5.000; +require 5.6.0; require Exporter; +use warnings; =head1 NAME @@ -49,6 +50,7 @@ our @EXPORT = qw(validate); sub validate { local($file,$test,$warnings,$oldwarnings); + $warnings = 0; foreach $check (split(/\n/,$_[0])) { next if $check =~ /^#/; next if $check =~ /^$/; diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm index 667e7cb883..9cf922b10c 100644 --- a/lib/File/Compare.pm +++ b/lib/File/Compare.pm @@ -1,7 +1,8 @@ package File::Compare; -use 5.005_64; +use 5.6.0; use strict; +use warnings; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big); require Exporter; diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 24d1ffdf63..8757505b98 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -7,8 +7,9 @@ package File::Copy; -use 5.005_64; +use 5.6.0; use strict; +use warnings; use Carp; our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy); sub copy; diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm index 2b4d39acd0..aa9beb9d34 100644 --- a/lib/File/DosGlob.pm +++ b/lib/File/DosGlob.pm @@ -11,6 +11,7 @@ package File::DosGlob; our $VERSION = '1.00'; use strict; +use warnings; sub doglob { my $cond = shift; diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 1e33f1edec..ef3d2412b6 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -1,6 +1,7 @@ package File::Find; use strict; -use 5.005_64; +use warnings; +use 5.6.0; our $VERSION = '1.00'; require Exporter; require Cwd; diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 0eb6128afe..82509c200f 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -91,11 +91,12 @@ Charles Bailey <F<bailey@newman.upenn.edu>> =cut -use 5.005_64; +use 5.6.0; use Carp; use File::Basename (); use Exporter (); use strict; +use warnings; our $VERSION = "1.0404"; our @ISA = qw( Exporter ); diff --git a/lib/File/stat.pm b/lib/File/stat.pm index 200af4ef17..aff5d03020 100644 --- a/lib/File/stat.pm +++ b/lib/File/stat.pm @@ -1,7 +1,8 @@ package File::stat; use strict; +use warnings; -use 5.005_64; +use 5.6.0; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our $VERSION = '1.00'; diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t index 3072c542b5..8412258a69 100755 --- a/t/lib/filecopy.t +++ b/t/lib/filecopy.t @@ -15,8 +15,6 @@ use File::Copy; for my $pass (@pass) { - require File::Copy; - my $loopconst = $pass*$tests; # First we create a file @@ -96,10 +94,6 @@ for my $pass (@pass) { and not -e "file-$$";; printf "ok %d\n", 11+$loopconst; unlink "lib/file-$$" or die "unlink: $!"; - - # warn sprintf "INC->".$INC{"File/Copy.pm"}; - delete $INC{"File/Copy.pm"}; - } |