diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-09-08 16:46:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-08 18:55:01 +0000 |
| commit | 03fbabc65894c92c6a64a11641dedba149b67081 (patch) | |
| tree | 62fe79f45b1623633cd590f3418b719ec1ea03f6 /ext/SDBM_File | |
| parent | 20f6aaab8d64a33be1150bb7a380a1b5d03267cb (diff) | |
| download | perl-03fbabc65894c92c6a64a11641dedba149b67081.tar.gz | |
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
Diffstat (limited to 'ext/SDBM_File')
| -rw-r--r-- | ext/SDBM_File/sdbm.t | 8 |
1 files changed, 4 insertions, 4 deletions
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 ; |