[perl #25369] perlbug: 5.8.2 ActivePerl $CHILD_ERROR wrong with 2>&1 after qx

# New Ticket Created by  Flash Sheridan 
# Please include the string:  [perl #25369]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=25369 >


This is a bug report for perl from flash@pobox.com,
generated with the help of perlbug 1.34 running under perl v5.8.2.


-----------------------------------------------------------------
The following code incorrectly prints -1 under Perl v5.8.2 build 808, but 
correctly prints 0 for 5.6.1 build 631, with CygWin true.
     CygWin's true is working correctly, as verified by echo %ERRORLEVEL%; 
I originally noticed the problem with
an internal tool.  More complicated code relying on the expected behavior 
has been working for over a year.
     Because of ActiveState's warning about dual installations, I haven't 
yet tried both versions of Perl on the same machine;
     the bug is on a new Windows XP box.


use strict; use warnings; use diagnostics; use English; use 5.6.0;
my $theSysText = qx("true 2>&1");
print "\nCHILD_ERROR: $CHILD_ERROR\n";




[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
     category=core
     severity=medium
---
Site configuration information for perl v5.8.2:

Configured by ActiveState at Tue Dec  9 10:19:27 2003.

Summary of my perl5 (revision 5 version 8 subversion 2) configuration:
   Platform:
     osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
     uname=''
     config_args='undef'
     hint=recommended, useposix=true, d_sigaction=undef
     usethreads=undef use5005threads=undef useithreads=define 
usemultiplicity=define
     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=undef use64bitall=undef uselongdouble=undef
     usemymalloc=n, bincompat5005=undef
   Compiler:
     cc='cl', ccflags ='-nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 
-D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT  -DNO_HASH_SEED 
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO 
-DPERL_MSVCRT_READFIX',
     optimize='-MD -Zi -DNDEBUG -O1',
     cppflags='-DWIN32'
     ccversion='', gccversion='', gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
     d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64', 
lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='link', ldflags ='-nologo -nodefaultlib -debug 
-opt:ref,icf  -libpath:"C:\Perl\lib\CORE"  -machine:x86'
     libpth=C:\PROGRA~1\MICROS~3\VC98\lib
     libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib 
winspool.lib  comdlg32.lib advapi32.lib shell32.lib ole32.lib 
oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib 
winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
     perllibs=  oldnames.lib kernel32.lib user32.lib gdi32.lib 
winspool.lib  comdlg32.lib advapi32.lib shell32.lib ole32.lib 
oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib 
winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib
     libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl58.lib
     gnulibc_version='undef'
   Dynamic Linking:
     dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
     cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug 
-opt:ref,icf  -libpath:"C:\Perl\lib\CORE"  -machine:x86'

Locally applied patches:
     ACTIVEPERL_LOCAL_PATCHES_ENTRY
     21846 Configure gets d_u32align wrong
     21739 [perl #24493] install.html not working
     21737 Ooops. left an XXX comment in, and worse still it's a // comment
     21735 utf8 keys now work for tied hashes
     21734 Accessing unicode keys in tie hashes via hv_exists was broken
     21733 ext/threads/t/problem.t
     21732 Config::myconfig() fails under ithreads
     21728 Update perlhist with 5.6.2
     21723 Include 'SCCS' in the list of dir names ignored by installperl
     21718 Empty subroutine as object method segfaults in 5.8.2 (sometimes)
     21714 Fix bug #24380: assigning list with duplicated keys to a hash
     21706 [perl #24460] [DOC PATCH] the begincheck program
     21693 must copy changes from win32/makeifle.mk to wince/makefile.ce
     21691 Update the list of pumpkings in perlhist.pod
     21687 [PATCH 5.6.2-RC1 pod/perlhist.pod]  Updated
     21677 OS/2 docu
     21676 Bug #24407: key for shared hash got stringified into wrong pool
     21673 Be sure to use -fPIC not -fpic on Linux/SPARC
     21672 extending the hash attack test
     21671 Benchmark.pm cmpthese segfault
     21662 'make minitest' fails for op/cproto and op/pat
     21586 Comment that this 'optimisation' is actually a necessary fixup
     21548 Sync with Pod::Perldoc 3.12
     21540 Fix backward-compatibility issues in if.pm

---
@INC for perl v5.8.2:
     C:/Perl/lib
     C:/Perl/site/lib
     .

---
Environment for perl v5.8.2:
     HOME (unset)
     LANG (unset)
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
     PATH=C:\Perl\bin\;%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;C:\PROGRA~1\PALMSO~1\PALMOS~1\PALMOS~1;C:\Program 
Files\Perforce;C:\Program Files\UltraEdit;C:\PalmOSCygwin\bin;C:\Program 
Files\PalmSource\Palm OS Developer Platform\PalmOSTools;C:\Program 
Files\PalmSource\Palm OS Developer Platform\PalmOSTools\Palm OS Resource Editor
     PERL_BADLANG (unset)
     SHELL (unset)

• [perl #25369] perlbug: 5.8.2 ActivePerl $CHILD_ERROR wrong with 2>&1 after qx by Flash Sheridan
• Re: [perl #25369] perlbug: 5.8.2 ActivePerl $CHILD_ERROR wrong with 2>&1 after qx by Dave Mitchell
• Re: [perl #25369] perlbug: 5.8.2 ActivePerl $CHILD_ERROR wrong with 2>&1 after qx by Yitzchak Scott-Thoennes
• Re: [perl #25369] perlbug: 5.8.2 ActivePerl $CHILD_ERROR wrong with 2>&1 after qx by Randy W. Sims