From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 16 Sep 2003 19:17:57 +0000 (-0700)
Subject: magic.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=639cf43be4808c24d6c8660c3a09bcb92311abbf;p=p5sagit%2Fp5-mst-13.2.git

magic.t
Message-ID: <20030917021757.GA20261@math.berkeley.edu>

p4raw-id: //depot/perl@21257
---

diff --git a/t/op/magic.t b/t/op/magic.t
index 74a8d25..7a93281 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;
 }