diff options
Diffstat (limited to 'ext/GDBM_File/t/gdbm.t')
| -rw-r--r-- | ext/GDBM_File/t/gdbm.t | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/ext/GDBM_File/t/gdbm.t b/ext/GDBM_File/t/gdbm.t index c0addb0cf2..b53d62961b 100644 --- a/ext/GDBM_File/t/gdbm.t +++ b/ext/GDBM_File/t/gdbm.t @@ -141,9 +141,6 @@ sub ok package Another ; - use strict ; - use warnings ; - open(FILE, ">SubDB.pm") or die "Cannot open SubDB.pm: $!\n" ; print FILE <<'EOM' ; @@ -216,8 +213,6 @@ EOM { # DBM Filter tests - use strict ; - use warnings ; my (%h, $db) ; my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ; @@ -323,8 +318,6 @@ EOM { # DBM Filter with a closure - use strict ; - use warnings ; my (%h, $db) ; unlink <Op.dbmx*>; @@ -386,8 +379,6 @@ EOM { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink <Op.dbmx*>; @@ -408,9 +399,6 @@ EOM # # test that $hash{KEY} = undef doesn't produce the warning # Use of uninitialized value in null operation - use warnings ; - use strict ; - use GDBM_File ; unlink <Op.dbmx*>; my %h ; @@ -431,10 +419,6 @@ EOM # modified key doesn't get passed to NEXTKEY. # Also Test "keys" & "values" while we are at it. - use warnings ; - use strict ; - use GDBM_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*>; |