Fix precedence errors and add some cleanup in the new

DBM_Filter tests

p4raw-id: //depot/perl@22183

diff --git a/lib/DBM_Filter/t/01error.t b/lib/DBM_Filter/t/01error.t
index 4ebbfd8..f66030a 100644 (file)
--- a/lib/DBM_Filter/t/01error.t
+++ b/lib/DBM_Filter/t/01error.t
@@ -11,15 +11,17 @@ our $db ;
     if ( ! -d 'DBM_Filter')
     {
         mkdir 'DBM_Filter', 0777 
-            || die "Cannot create directory 'DBM_Filter': $!\n" ;
+           or die "Cannot create directory 'DBM_Filter': $!\n" ;
     }
 }
 
+END { rmdir 'DBM_Filter' }
+
 sub writeFile
 {
     my $filename = shift ;
     my $content = shift;
-    open F, ">$filename" || croak "Cannot open $filename: $!" ;
+    open F, ">$filename" or croak "Cannot open $filename: $!" ;
     print F $content ;
     close F;
 }

diff --git a/lib/DBM_Filter/t/02core.t b/lib/DBM_Filter/t/02core.t
index fe1dc8c..77a6a6c 100644 (file)
--- a/lib/DBM_Filter/t/02core.t
+++ b/lib/DBM_Filter/t/02core.t
@@ -12,16 +12,17 @@ use lib '.';
     if ( ! -d 'DBM_Filter')
     {
         mkdir 'DBM_Filter', 0777 
-            || die "Cannot create directory 'DBM_Filter': $!\n" ;
+           or die "Cannot create directory 'DBM_Filter': $!\n" ;
     }
 }
 
+END { rmdir 'DBM_Filter' }
 
 sub writeFile
 {
     my $filename = shift ;
     my $content = shift;
-    open F, ">DBM_Filter/$filename.pm" || croak "Cannot open $filename: $!" ;
+    open F, ">DBM_Filter/$filename.pm" or croak "Cannot open $filename: $!" ;
     print F $content ;
     close F;
     $files{"DBM_Filter/$filename.pm"} ++;