AmigaOS patches to 5.003_28

[p5sagit/p5-mst-13.2.git] / t / lib / db-recno.t

diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t
index da3edbf..39bb364 100755 (executable)
--- a/t/lib/db-recno.t
+++ b/t/lib/db-recno.t
@@ -12,7 +12,7 @@ BEGIN {
 use DB_File; 
 use Fcntl;
 use strict ;
-use vars qw($dbh $Dfile) ;
+use vars qw($dbh $Dfile $bad_ones) ;
 
 sub ok
 {
@@ -27,8 +27,8 @@ sub ok
 
 sub bad_one
 {
-    print <<EOM unless $bad_ones++ ;
-# 
+    print STDERR <<EOM unless $bad_ones++ ;
+#
 # Some older versions of Berkeley DB will fail tests 51, 53 and 55.
 #
 # You can safely ignore the errors if you're never going to use the
@@ -93,7 +93,7 @@ my $X  ;
 my @h ;
 ok(17, $X = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
 
-ok(18, ( (stat($Dfile))[2] & 0777) == ($^O eq 'os2' ? 0666 : 0640)) ;
+ok(18, ( (stat($Dfile))[2] & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos') ;
 
 #my $l = @h ;
 my $l = $X->length ;