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.