diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-12-15 15:08:04 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-12-15 16:32:39 +0000 |
commit | 27b757ee1ecd8a0e9af94b3b1d42adae74534681 (patch) | |
tree | f977dfd37fdd13833116fedb27f0bf9a0638d705 /ext/ODBM_File | |
parent | 2bacf45196adffa38459d666fa7e41411f3b4eb0 (diff) | |
download | perl-27b757ee1ecd8a0e9af94b3b1d42adae74534681.tar.gz |
Remove redundant use strict,warnings,?DBM_File from ext/?DBM_File/t/?dbm.t.
Diffstat (limited to 'ext/ODBM_File')
-rw-r--r-- | ext/ODBM_File/t/odbm.t | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/ext/ODBM_File/t/odbm.t b/ext/ODBM_File/t/odbm.t index e9706ef05c..a713b274c6 100644 --- a/ext/ODBM_File/t/odbm.t +++ b/ext/ODBM_File/t/odbm.t @@ -142,9 +142,6 @@ unlink 'Op.dbmx.dir', $Dfile; package Another ; - use strict ; - use warnings ; - open(FILE, ">SubDB.pm") or die "Cannot open SubDB.pm: $!\n" ; print FILE <<'EOM' ; @@ -213,8 +210,6 @@ EOM { # DBM Filter tests - use strict ; - use warnings ; my (%h, $db) ; my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ; @@ -322,8 +317,6 @@ EOM { # DBM Filter with a closure - use strict ; - use warnings ; my (%h, $db) ; unlink <Op.dbmx*>; @@ -385,8 +378,6 @@ EOM { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink <Op.dbmx*>; @@ -407,9 +398,6 @@ EOM # # test that $hash{KEY} = undef doesn't produce the warning # Use of uninitialized value in null operation - use warnings ; - use strict ; - use ODBM_File ; unlink <Op.dbmx*>; my %h ; @@ -430,10 +418,6 @@ EOM # modified key doesn't get passed to NEXTKEY. # Also Test "keys" & "values" while we are at it. - use warnings ; - use strict ; - use ODBM_File ; - unlink <Op.dbmx*>; my $bad_key = 0 ; my %h = () ; @@ -468,8 +452,6 @@ EOM { # Check that DBM Filter can cope with read-only $_ - use warnings ; - use strict ; my %h ; unlink <Op.dbmx*>; |