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/NDBM_File/ndbm.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/NDBM_File/ndbm.t')
| -rwxr-xr-x | ext/NDBM_File/ndbm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/NDBM_File/ndbm.t b/ext/NDBM_File/ndbm.t index cb975e0047..f56034387a 100755 --- a/ext/NDBM_File/ndbm.t +++ b/ext/NDBM_File/ndbm.t @@ -40,7 +40,7 @@ my $Dfile = "Op.dbmx.pag"; if (! -e $Dfile) { ($Dfile) = <Op.dbmx*>; } -if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare') { +if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'MacOS') { print "ok 2 # Skipped: different file permission semantics\n"; } else { @@ -137,7 +137,7 @@ print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n"); print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n"); untie %h; -unlink 'Op.dbmx.dir', $Dfile; +unlink <Op.dbmx*>, $Dfile; { # sub-class test |