perl：IPC :: Open3无法使用FCGI打开STDERR

Not a GLOB reference at /usr/local/lib/perl/5.10.1/FCGI.pm line 125

我在FCGI :: OPEN()中添加了一个cluck,并在IPC :: Open3 :: xopen()中添加了警告,这是我得到的：

mod_fcgid: stderr: IPC::Open3::xopen() called with args: GLOB(0xe92360) <&=5 
mod_fcgid: stderr: IPC::Open3::xopen() called with args: GLOB(0xe92438) >&=9 
mod_fcgid: stderr: IPC::Open3::xopen() called with args: GLOB(0xe92498) >&=12 
mod_fcgid: stderr: FCGI::OPEN() called with args: FCGI::Stream=SCALAR(0x14e43f0) >&=12 
mod_fcgid: stderr:  at /usr/local/lib/perl/5.10.1/FCGI.pm line 125 
mod_fcgid: stderr: tFCGI::Stream::OPEN('FCGI::Stream=SCALAR(0x14e43f0)','>&=12') called at /usr/share/perl/5.10/IPC/Open3.pm line 67 
mod_fcgid: stderr: tIPC::Open3::xopen('GLOB(0xe92498)','>&=12') called at /usr/share/perl/5.10/IPC/Open3.pm line 162 
mod_fcgid: stderr: 
mod_fcgid: stderr: tIPC::Open3::_open3('open3','MyModule','GLOB(0x1a56078)','GLOB(0x1906738)','GLOB(0x12f5430)','/usr/bin/git','--version') called at /usr/share/perl/5.10/IPC/Open3.pm line 233 
mod_fcgid: stderr: tIPC::Open3::open3('GLOB(0x1a56078)','--version') called at /usr/local/lib/site_perl/MyModule.pm line 113

仅在打开STDERR时才调用FCGI :: OPEN(). STDIN和STDOUT未达到FCGI :: OPEN().我看了看IPC :: Open3,这就是失败的地方：

if ($dad_rdr ne $dad_err) {
    if ($dup_err) {
        # I have to use a fileno here because in this one case
        # I'm doing a dup but the filehandle might be a reference
        # (from the special case above).
        xopen *STDERR,">&" . xfileno($dad_err)
            if fileno(STDERR) != xfileno($dad_err);
    } else {
        xclose $dad_err;
        xopen *STDERR,">&=" . fileno $kid_err;  # this is failing
    }
} else {
    xopen *STDERR,">&STDOUT" if fileno(STDERR) != fileno(STDOUT);
}

我可以用IPC :: Run :: start替换open3,一切正常.但我真的很想知道STDERR出了什么问题.它是FCGI.pm或Open3.pm的错误还是我做错了什么？

我运行apache 2.2.16与libapache2-mod-fcgid 1：2.3.6,libfcgi-perl 0.71-1和libcgi-fast-perl 5.10.1关于debian squeeze. Perl版本是5.10.1.

如何重现：

use CGI::Fast;
use Symbol ();
use IPC::Open3 qw(open3);

while (my $cgi = new CGI::Fast) {
    my $pid;
    my $in  = Symbol::gensym;
    my $out = Symbol::gensym;
    my $err = Symbol::gensym;    

    $pid = open3( $in,$out,$err,'--version');

}