Log: Tests in t/lib/db-recno.t fail on both of these machines.

             The attached patch fixes this by making sure the file DB_File
             is being tied to is created. The cause is probably in the
             DB_File.xs DoTie_ but I didn't track down where
             (patch by Avar)

git-svn-id: http://perl5005.googlecode.com/svn/trunk@8 e77bdc90-ac31-0410-a84a-cbf48518d05f

diff --git a/Changes b/Changes
index dfb7fae..2de39e0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -80,6 +80,15 @@ Version 5.005_04        Fourth maintenance release of 5.005
 
 
 ____________________________________________________________________________
+[      ] By: acme                                  on 2007/06/10  12:52:18
+        Log: Tests in t/lib/db-recno.t fail on both of these machines.
+             The attached patch fixes this by making sure the file DB_File
+             is being tied to is created. The cause is probably in the 
+             DB_File.xs DoTie_ but I didn't track down where
+             (patch by Avar)
+     Branch: maint-5.005/perl
+           ! t/lib/db-recno.t
+____________________________________________________________________________
 [      ] By: acme                                  on 2007/06/09  07:27:22
         Log: Skip the test if DB_File is not being built
      Branch: maint-5.005/perl

diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t
index d15dea1..05b24da 100755 (executable)
--- a/t/lib/db-recno.t
+++ b/t/lib/db-recno.t
@@ -519,7 +519,7 @@ EOM
     ok(86, $x eq "abc\ndef\nghi\njkl\n") ;
 
     # $# sets array to same length
-    ok(87, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
+    ok(87, $self = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
     if ($FA)
       { $#h = 3 }
     else 
@@ -531,7 +531,7 @@ EOM
     ok(90, $x eq "abc\ndef\nghi\njkl\n") ;
 
     # $# sets array to bigger
-    ok(91, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
+    ok(91, $self = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
     if ($FA)
       { $#h = 6 }
     else 
@@ -543,7 +543,7 @@ EOM
     ok(94, $x eq "abc\ndef\nghi\njkl\n\n\n\n") ;
 
     # $# sets array smaller
-    ok(95, $self = tie @h, 'DB_File', $Dfile, O_RDWR, 0640, $DB_RECNO ) ;
+    ok(95, $self = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
     if ($FA)
       { $#h = 2 }
     else