diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-21 23:02:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-21 23:02:30 +0000 |
| commit | d536870a93a670c31df812c6614c7c6180896307 (patch) | |
| tree | 5cf1ec99d15073af4134c26ed80b01caf736cefb /ext/DB_File/t/db-recno.t | |
| parent | 52e18b1f277416a33dff2c066a83fdab0520a2d7 (diff) | |
| download | perl-d536870a93a670c31df812c6614c7c6180896307.tar.gz | |
Integrate change #11388 from macperl (the *.t parts needed hand massage).
p4raw-link: @11388 on //depot/maint-5.6/macperl: fa1e76071cf9cd14bdc552967af2da831117260a
p4raw-id: //depot/perl@11432
p4raw-branched: from //depot/maint-5.6/macperl@11423 'branch in'
macos/MacPerlTests.cmd (@11243..)
p4raw-branched: from //depot/maint-5.6/macperl@11388 'branch in'
macos/xsubpp.patch (@11243..)
Diffstat (limited to 'ext/DB_File/t/db-recno.t')
| -rwxr-xr-x | ext/DB_File/t/db-recno.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t index 6dd913cfc2..13c635591a 100755 --- a/ext/DB_File/t/db-recno.t +++ b/ext/DB_File/t/db-recno.t @@ -152,7 +152,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' || $^O eq 'MacOS') ? 0666 : 0640) || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'amigaos') ; #my $l = @h ; |