This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix precedence errors and add some cleanup in the new
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Jan 2004 20:26:18 +0000 (20:26 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Jan 2004 20:26:18 +0000 (20:26 +0000)
DBM_Filter tests

p4raw-id: //depot/perl@22183

lib/DBM_Filter/t/01error.t
lib/DBM_Filter/t/02core.t

index 4ebbfd8..f66030a 100644 (file)
@@ -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;
 }
index fe1dc8c..77a6a6c 100644 (file)
@@ -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"} ++;