From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 8 Sep 2002 15:46:44 +0000 (+0100)
Subject: cleanup temp files (was Re: Smoke 17805 irix 6.5 6.5.16m IP32 r5000 /usr/share/src... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03fbabc65894c92c6a64a11641dedba149b67081;p=p5sagit%2Fp5-mst-13.2.git

cleanup temp files (was Re: Smoke 17805 irix 6.5 6.5.16m IP32 r5000 /usr/share/src/cpan-current-benedick)
Message-ID: <20020908144643.GC286@Bagpuss.unfortu.net>

Plus two other similar tweaks

p4raw-id: //depot/perl@17875
---

diff --git a/ext/SDBM_File/sdbm.t b/ext/SDBM_File/sdbm.t
index d1e2b4a..8106289 100644
--- a/ext/SDBM_File/sdbm.t
+++ b/ext/SDBM_File/sdbm.t
@@ -439,7 +439,7 @@ unlink <Op_dbmx*>, $Dfile;
     use strict ;
     use SDBM_File ;
 
-    unlink <Op.dbmx*>;
+    unlink <Op_dbmx*>;
     my $bad_key = 0 ;
     my %h = () ;
     ok(69, my $db = tie(%h, 'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640)) ;
@@ -466,7 +466,7 @@ unlink <Op_dbmx*>, $Dfile;
 
     undef $db ;
     untie %h ;
-    unlink <Op.dbmx*>;
+    unlink <Op_dbmx*>;
 }
 
 
@@ -476,7 +476,7 @@ unlink <Op_dbmx*>, $Dfile;
    use warnings ;
    use strict ;
    my %h ;
-   unlink <Op1.dbmx*>;
+   unlink <Op1_dbmx*>;
 
    ok(75, my $db = tie(%h, 'SDBM_File','Op1_dbmx', O_RDWR|O_CREAT, 0640)) ;
 
@@ -511,6 +511,6 @@ unlink <Op_dbmx*>, $Dfile;
 
    undef $db ;
    untie %h;
-   unlink <Op1.dbmx*>;
+   unlink <Op1_dbmx*>;
 }
 exit ;