diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-27 19:16:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 04:19:51 +0000 |
| commit | 404d038e4f672051c639b5ec1231377a2ef84548 (patch) | |
| tree | 112e6b2b9159dcc9b9e05dc0b869cbcd082c5df3 /ext/POSIX | |
| parent | eac43e50eb74b2ab842edbaf11e066023abc47dc (diff) | |
| download | perl-404d038e4f672051c639b5ec1231377a2ef84548.tar.gz | |
ext/POSIX/t/posix.t -- neuter final test on VOS
Message-Id: <200203280516.AAA16625@mailhub2.stratus.com>
p4raw-id: //depot/perl@15575
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/t/posix.t | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index a5c57a7efc..762c3f1b90 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); +} |