From: Paul Green <Paul.Green@stratus.com>
Date: Thu, 28 Mar 2002 00:16:00 +0000 (-0500)
Subject: ext/POSIX/t/posix.t -- neuter final test on VOS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=404d038e4f672051c639b5ec1231377a2ef84548;p=p5sagit%2Fp5-mst-13.2.git

ext/POSIX/t/posix.t -- neuter final test on VOS
Message-Id: <200203280516.AAA16625@mailhub2.stratus.com>

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

diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t
index a5c57a7..762c3f1 100644
--- a/ext/POSIX/t/posix.t
+++ b/ext/POSIX/t/posix.t
@@ -208,11 +208,17 @@ is ($result, undef, "fgets should fail");
 like ($@, qr/^Use method IO::Handle::gets\(\) instead/,
       "check its redef message");
 
-$| = 0;
-# The following line assumes buffered output, which may be not true:
-print '@#!*$@(!@#$' unless ($Is_MacOS || $Is_OS2 || $Is_UWin || $Is_OS390 ||
+# Check that output is not flushed by _exit. This test should be last
+# in the file, and is not counted in the total number of tests.
+if ($^O eq 'vos') {
+ print "# TODO - hit VOS bug posix-885 - _exit flushes output buffers.\n";
+} else {
+ $| = 0;
+ # The following line assumes buffered output, which may be not true:
+ print '@#!*$@(!@#$' unless ($Is_MacOS || $Is_OS2 || $Is_UWin || $Is_OS390 ||
                             $Is_VMS ||
 			    (defined $ENV{PERLIO} &&
 			     $ENV{PERLIO} eq 'unix' &&
 			     $Config::Config{useperlio}));
-_exit(0);
+ _exit(0);
+}