From b58567d3865b1bc9c85a6007c36d159b46fc3ca1 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 8 Sep 2002 16:46:44 +0100
Subject: 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
---
 ext/SDBM_File/sdbm.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'ext')

diff --git a/ext/SDBM_File/sdbm.t b/ext/SDBM_File/sdbm.t
index d1e2b4ac2e..8106289364 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 ;
-- 
cgit v1.2.1