diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-03-27 11:27:38 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-29 01:31:47 +0000 |
| commit | b395063c4500baaa5d9b1c18d28abaadc275a05c (patch) | |
| tree | 7de85c27f211d9e84741b7983f14ffa2aea4995c /lib | |
| parent | 24c02676028cab802cb347f1affa7f30893cac1c (diff) | |
| download | perl-b395063c4500baaa5d9b1c18d28abaadc275a05c.tar.gz | |
Enable warnings in File::* (was: B::Terse and warnings)
Message-ID: <Pine.LNX.4.21.0103271612250.2007-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@9428
Diffstat (limited to 'lib')
| -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 |
8 files changed, 16 insertions, 7 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'; |