Remove redundant use strict,warnings,?DBM_File from ext/?DBM_File/t/?dbm.t.
authorNicholas Clark <nick@ccl4.org>
Wed, 15 Dec 2010 15:08:04 +0000 (15:08 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 15 Dec 2010 16:32:39 +0000 (16:32 +0000)
ext/GDBM_File/t/gdbm.t
ext/NDBM_File/t/ndbm.t
ext/ODBM_File/t/odbm.t
ext/SDBM_File/t/sdbm.t

index c0addb0..b53d629 100644 (file)
@@ -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*>;
 
index 8956676..87661d8 100644 (file)
@@ -142,9 +142,6 @@ unlink <Op.dbmx*>, $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 <Op.dbmx*>;
@@ -383,8 +376,6 @@ EOM
 
 {
    # DBM Filter recursion detection
-   use strict ;
-   use warnings ;
    my (%h, $db) ;
    unlink <Op.dbmx*>;
 
@@ -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 <Op.dbmx*>;
     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 <Op.dbmx*>;
     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 <Op.dbmx*>;
 
index e9706ef..a713b27 100644 (file)
@@ -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*>;
 
index 60423d9..f7b0ae6 100644 (file)
@@ -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 <Op_dbmx*>, $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 <Op_dbmx*>, $Dfile;
 {    
     # DBM Filter with a closure
 
-    use strict ;
-     use warnings ;
     my (%h, $db) ;
 
     unlink <Op_dbmx*>;
@@ -387,8 +380,6 @@ unlink <Op_dbmx*>, $Dfile;
 
 {
    # DBM Filter recursion detection
-   use strict ;
-   use warnings ;
    my (%h, $db) ;
    unlink <Op_dbmx*>;
 
@@ -409,9 +400,6 @@ unlink <Op_dbmx*>, $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 <Op_dbmx*>;
     my %h ;
@@ -433,10 +421,6 @@ unlink <Op_dbmx*>, $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 <Op_dbmx*>;
     my $bad_key = 0 ;
     my %h = () ;
@@ -471,8 +455,6 @@ unlink <Op_dbmx*>, $Dfile;
 {
    # Check that DBM Filter can cope with read-only $_
 
-   use warnings ;
-   use strict ;
    my %h ;
    unlink <Op1_dbmx*>;