This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
README.os2 update
[perl5.git] / t / lib / posix.t
index c071c3b..8dafc80 100755 (executable)
@@ -96,5 +96,6 @@ print &POSIX::acos(1.0) == 0.0 ? "ok 17\n" : "not ok 17\n";
 print POSIX::strftime("ok 18 # %H:%M, on %D\n", localtime());
 
 $| = 0;
-print '@#!*$@(!@#$';
+# The following line assumes buffered output, which may be not true with EMX:
+print '@#!*$@(!@#$' unless $^O eq 'os2';
 _exit(0);