diff options
author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-09-16 12:17:57 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-17 03:53:46 +0000 |
commit | 639cf43be4808c24d6c8660c3a09bcb92311abbf (patch) | |
tree | f53ddea8009efb4506e6ff29aec9e77027d3d40b /t | |
parent | 4ef107a6cabd33854b770659cca90f12a2326104 (diff) | |
download | perl-639cf43be4808c24d6c8660c3a09bcb92311abbf.tar.gz |
magic.t
Message-ID: <20030917021757.GA20261@math.berkeley.edu>
p4raw-id: //depot/perl@21257
Diffstat (limited to 't')
-rwxr-xr-x | t/op/magic.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 74a8d25f90..7a932818bf 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -125,7 +125,8 @@ END END close CMDPIPE; $? >>= 8 if $^O eq 'VMS'; # POSIX status hiding in 2nd byte - print $? & 0xFF ? "ok 6\n" : "not ok 6\n"; + my $todo = ($^O eq 'os2' ? ' # TODO: EMX v0.9d_fix4 bug: wrong nibble? ' : ''); + print $? & 0xFF ? "ok 6$todo\n" : "not ok 6$todo\n"; $test += 4; } |