This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
magic.t
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 16 Sep 2003 19:17:57 +0000 (12:17 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 17 Sep 2003 03:53:46 +0000 (03:53 +0000)
Message-ID: <20030917021757.GA20261@math.berkeley.edu>

p4raw-id: //depot/perl@21257

t/op/magic.t

index 74a8d25..7a93281 100755 (executable)
@@ -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;
 }