IPC::Open3 nefunguje pod mod_perl2?

[Jan Kasprzak]

	Zdravim,

funguje vam nekomu IPC::Open3 pod mod_perlem 2? Mam stejnou verzi
Perlu pod mod_perlem1 a 2 na ruznych strojich, a IPC::Open3 zda se
na mod_perlu 2 nefunguje. Vypada to, ze nema presmerovany vstup.
Napsal jsem si testovaci skript:

===================================================
#!/usr/bin/perl -w
use strict;
use IPC::Open3;

my $cmd = '/bin/ls -l /proc/self/fd > /tmp/list';
# my $cmd = '/bin/cat';

print "Content-Type: text/plain\n\n";
print "Test IPC::Open3\n";
my ($wr, $rd, $er);
open3($wr, $rd, $er, $cmd);
print $wr "Malicky jezecek\n";
close $wr;
while(<$rd>) {
        print;
}
print "---err\n";
while(<$er>) {
        print;
}
===================================================
Pod mod_perlem 1 je v /tmp/list toto:

lr-x------  1 www www 64 Jan 25 23:32 0 -> pipe:[804386]
l-wx------  1 www www 64 Jan 25 23:32 1 -> /tmp/list
l-wx------  1 www www 64 Jan 25 23:32 2 -> pipe:[804387]
lr-x------  1 www www 64 Jan 25 23:32 3 -> /proc/26263/fd
[... a nejake dalsi ...]

Pod mod_perlem 2 je v /tmp/list toto:

l-wx------  1 www www 64 Jan 25 23:30 0 -> /dev/null
l-wx------  1 www www 64 Jan 25 23:30 1 -> /tmp/list
lr-x------  1 www www 64 Jan 25 23:30 13 -> /proc/25994/fd
l-wx------  1 www www 64 Jan 25 23:30 2 -> pipe:[161982210]
lr-x------  1 www www 64 Jan 25 23:30 5 -> pipe:[85650709]
l-wx------  1 www www 64 Jan 25 23:30 6 -> pipe:[85650709]
[... a nejake dalsi ...]

Zejmena je zajimave, ze pod mod_perlem 2 ty roury jsou na
deskriptorech 2, 5 a 6 (maji byt na 0, 1 a 2).

-Y.

-- 
| Jan "Yenya" Kasprzak  <kas at {fi.muni.cz - work | yenya.net - private}> |
| GPG: ID 1024/D3498839      Fingerprint 0D99A7FB206605D7 8B35FCDE05B18A5E |
| http://www.fi.muni.cz/~kas/    Journal: http://www.fi.muni.cz/~kas/blog/ |
> Specs are a basis for _talking_about_ things. But they are _not_ a basis <
> for implementing software.                              --Linus Torvalds <