From a109f988838e035e38e7263f74120ba65bf7bd0d Mon Sep 17 00:00:00 2001
From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 8 Nov 2001 22:52:50 +0000
Subject: [PATCH] RE: Win2k / Cygwin-1.3.3 Message-ID:
 <AIEAJICLCBDNAAOLLOKLKEHNDEAA.Paul_Marquess@Yahoo.co.uk>

p4raw-id: //depot/perl@12905
---
 ext/DB_File/t/db-recno.t | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index 748bedf..8f42ce3 100755
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -1061,13 +1061,14 @@ sub test_splice {
     my @array = @$array;
     my @list = @$list;
 
-    open(TEXT, ">$tmp") or die "cannot write to $tmp: $!";
-    foreach (@array) { print TEXT "$_\n" }
-    close TEXT or die "cannot close $tmp: $!";
+    unlink $tmp;
     
     my @h;
-    my $H = tie @h, 'DB_File', $tmp, O_RDWR, 0644, $DB_RECNO
+    my $H = tie @h, 'DB_File', $tmp, O_CREAT|O_RDWR, 0644, $DB_RECNO
       or die "cannot open $tmp: $!";
+
+    my $i = 0;
+    foreach ( @array ) { $h[$i++] = $_ }
     
     return "basic DB_File sanity check failed"
       if list_diff(\@array, \@h);
-- 
2.7.4