Change 17875 by rgs@rgs-home on 2002/09/08 18:55:01
Subject: [PATCH] cleanup temp files (was Re: Smoke 17805 irix 6.5 6.5.16m IP32
r5000 /usr/share/src/cpan-current-benedick)
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sun, 8 Sep 2002 15:46:44 +0100
Message-ID: <[EMAIL PROTECTED]>
Plus two other similar tweaks
Affected files ...
.... //depot/perl/ext/SDBM_File/sdbm.t#6 edit
Differences ...
==== //depot/perl/ext/SDBM_File/sdbm.t#6 (text) ====
Index: perl/ext/SDBM_File/sdbm.t
--- perl/ext/SDBM_File/sdbm.t#5~17750~ Thu Aug 22 03:46:19 2002
+++ perl/ext/SDBM_File/sdbm.t Sun Sep 8 11:55:01 2002
@@ -439,7 +439,7 @@
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 @@
undef $db ;
untie %h ;
- unlink <Op.dbmx*>;
+ unlink <Op_dbmx*>;
}
@@ -476,7 +476,7 @@
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 @@
undef $db ;
untie %h;
- unlink <Op1.dbmx*>;
+ unlink <Op1_dbmx*>;
}
exit ;
End of Patch.
