diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-06-19 11:33:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 19:03:07 +0000 |
| commit | 601f2d16e592dad4a4b6a344fbe935aa06230d2e (patch) | |
| tree | b500d8f3bec9347ac0ab84287841e0d7c46c20d0 /ext | |
| parent | 47af93600f5196082b45ca5744631cd71ddc84b3 (diff) | |
| download | perl-601f2d16e592dad4a4b6a344fbe935aa06230d2e.tar.gz | |
[ID 20010619.007] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-perlio 4.0f (UNINSTALLED)
Message-Id: <200106191933.PAA08415@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@10730
Diffstat (limited to 'ext')
| -rwxr-xr-x | ext/POSIX/POSIX.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.t b/ext/POSIX/POSIX.t index 09bd88c2a9..cf08269f94 100755 --- a/ext/POSIX/POSIX.t +++ b/ext/POSIX/POSIX.t @@ -135,5 +135,8 @@ try_strftime(27, "Fri Mar 31 00:00:00 2000 091", 0,0,0, 31,2,100); $| = 0; # The following line assumes buffered output, which may be not true with EMX: -print '@#!*$@(!@#$' unless ($^O eq 'os2' || $^O eq 'uwin' || $^O eq 'os390'); +print '@#!*$@(!@#$' unless ($^O eq 'os2' || $^O eq 'uwin' || $^O eq 'os390' || + (defined $ENV{PERLIO} && + $ENV{PERLIO} eq 'unix' && + $Config::Config{useperlio})); _exit(0); |