diff options
Diffstat (limited to 'ext/DB_File/t/db-recno.t')
| -rwxr-xr-x | ext/DB_File/t/db-recno.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t index 8a225ce9b8..24ee17c754 100755 --- a/ext/DB_File/t/db-recno.t +++ b/ext/DB_File/t/db-recno.t @@ -157,7 +157,7 @@ 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' || $^O eq 'MacOS') ? 0666 : 0640) - || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'amigaos') ; + || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'cygwin' || $^O eq 'amigaos') ; #my $l = @h ; my $l = $X->length ; @@ -288,7 +288,8 @@ unlink $Dfile; untie @h ; my $x = docat($Dfile) ; unlink $Dfile; - ok(59, $x eq "abc\ndef\n\nghi\n") ; + ok(59, $x eq "abc\ndef\n\nghi\n" || + $x eq "abc\r\ndef\r\n\r\nghi\r\n") ; } { |