From 27b757ee1ecd8a0e9af94b3b1d42adae74534681 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 15 Dec 2010 15:08:04 +0000 Subject: [PATCH] Remove redundant use strict,warnings,?DBM_File from ext/?DBM_File/t/?dbm.t. --- ext/GDBM_File/t/gdbm.t | 18 ------------------ ext/NDBM_File/t/ndbm.t | 18 ------------------ ext/ODBM_File/t/odbm.t | 18 ------------------ ext/SDBM_File/t/sdbm.t | 18 ------------------ 4 files changed, 72 deletions(-) diff --git a/ext/GDBM_File/t/gdbm.t b/ext/GDBM_File/t/gdbm.t index c0addb0..b53d629 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 ; @@ -386,8 +379,6 @@ EOM { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -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 ; 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 ; 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 ; diff --git a/ext/NDBM_File/t/ndbm.t b/ext/NDBM_File/t/ndbm.t index 8956676..87661d8 100644 --- a/ext/NDBM_File/t/ndbm.t +++ b/ext/NDBM_File/t/ndbm.t @@ -142,9 +142,6 @@ unlink , $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 ; @@ -320,8 +315,6 @@ EOM { # DBM Filter with a closure - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -383,8 +376,6 @@ EOM { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -405,9 +396,6 @@ EOM # # test that $hash{KEY} = undef doesn't produce the warning # Use of uninitialized value in null operation - use warnings ; - use strict ; - use NDBM_File ; unlink ; my %h ; @@ -424,10 +412,6 @@ EOM # modified key doesn't get passed to NEXTKEY. # Also Test "keys" & "values" while we are at it. - use warnings ; - use strict ; - use NDBM_File ; - unlink ; my $bad_key = 0 ; my %h = () ; @@ -462,8 +446,6 @@ EOM { # Check that DBM Filter can cope with read-only $_ - use warnings ; - use strict ; my %h ; unlink ; diff --git a/ext/ODBM_File/t/odbm.t b/ext/ODBM_File/t/odbm.t index e9706ef..a713b27 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 ; @@ -385,8 +378,6 @@ EOM { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -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 ; 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 ; 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 ; diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t index 60423d9..f7b0ae6 100644 --- a/ext/SDBM_File/t/sdbm.t +++ b/ext/SDBM_File/t/sdbm.t @@ -140,9 +140,6 @@ print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n"); package Another ; - use strict ; - use warnings ; - open(FILE, ">SubDB.pm") or die "Cannot open SubDB.pm: $!\n" ; print FILE <<'EOM' ; @@ -217,8 +214,6 @@ unlink , $Dfile; { # DBM Filter tests - use strict ; - use warnings ; my (%h, $db) ; my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ; @@ -324,8 +319,6 @@ unlink , $Dfile; { # DBM Filter with a closure - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -387,8 +380,6 @@ unlink , $Dfile; { # DBM Filter recursion detection - use strict ; - use warnings ; my (%h, $db) ; unlink ; @@ -409,9 +400,6 @@ unlink , $Dfile; # # test that $hash{KEY} = undef doesn't produce the warning # Use of uninitialized value in null operation - use warnings ; - use strict ; - use SDBM_File ; unlink ; my %h ; @@ -433,10 +421,6 @@ unlink , $Dfile; # modified key doesn't get passed to NEXTKEY. # Also Test "keys" & "values" while we are at it. - use warnings ; - use strict ; - use SDBM_File ; - unlink ; my $bad_key = 0 ; my %h = () ; @@ -471,8 +455,6 @@ unlink , $Dfile; { # Check that DBM Filter can cope with read-only $_ - use warnings ; - use strict ; my %h ; unlink ; -- 2.7.4