diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-06-24 03:07:53 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-06-24 03:07:53 +0000 |
| commit | 43c9fafc3bc596eb73042d9ecc602496bf723f04 (patch) | |
| tree | d19291792dbb6c1e2aa765aa46dc00aa9be79881 /ext/NDBM_File | |
| parent | 1adb159c9e6f4ac956dc944251da05cb1fe521ec (diff) | |
| download | perl-43c9fafc3bc596eb73042d9ecc602496bf723f04.tar.gz | |
perl 5.003: ext/NDBM_File/NDBM_File.pm
C<use strict> with Perl 5.002 or later to avoid confusing warnings
if installed in a library also used by Perl 5.001m. (It still won't
work with 5,001m, but the error message now states this more clearly.)
Diffstat (limited to 'ext/NDBM_File')
| -rw-r--r-- | ext/NDBM_File/NDBM_File.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm index 601a3c2a0e..6072e651fc 100644 --- a/ext/NDBM_File/NDBM_File.pm +++ b/ext/NDBM_File/NDBM_File.pm @@ -1,6 +1,10 @@ package NDBM_File; -use strict; +BEGIN { + if ($] >= 5.002) { + use strict; + } +} use vars qw($VERSION @ISA); require Tie::Hash; |