system() not honoring STDOUT redirection

[Michael G Schwern]

Ok, I've nailed down the t/io/dup.t problem.  It appears that system()
does not honor the changing of STDOUT.

    open(STDOUT, ">somefile.tmp") or die $!;
    system(qq{$^X -le "print q{system}"});
    print `$^X -le "print q{backticks}"`;

This is VMS

$ perl dup_bug
system
$ cat somefile.tmp
backticks

and this is Linux

$ perl dup_bug 
$ cat somefile.tmp 
system
backticks


-- 

Michael G. Schwern   <[EMAIL PROTECTED]>    http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <[EMAIL PROTECTED]>       Kwalitee Is Job One
it is a past-time,
a paste-time, a passt-time, and
a plug my ass time.
        -- japhy