This is a known issue with latest mod_perl. Search the archives for details.
This is the temp. solution. Before you call open3() do: untie(*STDIN); untie(*STDOUT); Sreeji --- Rasoul Hajikhani <[EMAIL PROTECTED]> wrote: > Hello folks, > I am writing a web based interface to gpg and am > using IPC::Open3 and > IO::Select to manage STDIN, STDOUT and STDERR > handles. But, I can not > get stdin to work properly. Here is my code: > > $gpgCommand = "gpg --homedir $home > --no-default-keyring > --secret-keyring rasoul.asc --decrypt > $encryptedFile"; > print "$gpgCommand\n"; > $pid = > open3(*FIN,*FOUT,*FERR,"$gpgCommand"); > $SIG{CHLD} = sub { print "REAPER: status $? on > $pid\n" if > waitpid($pid,0) > 0 }; > > > $selector = IO::Select->new(); > $selector->add(*FIN,*FOUT,*FERR); > while (@handles = $selector->handles) > { > foreach my $fh (@handles) > { > if (fileno($fh) == fileno(FERR)) > { > print "STDERR: ", scalar > <FERR> > } > elsif (fileno($fh) == fileno(FOUT)) > { > @out = <FOUT>; > } > elsif ((fileno($fh) == fileno(FIN)) > { > print FIN "$passPhrase\n"; > } > $selector->remove($fh) if eof($fh); > } > } > $pf->close; > close FERR; > close FIN; > close FOUT; > > I am using perl 5.053 and Apache/1.3.14 Ben-SSL/1.42 > (Unix) PHP/4.0.3pl1 > mod_perl/1.24_01. > Can anyone see what am I doing wrong? > Thanks in advance > -r __________________________________________________ Do You Yahoo!? Everything you'll ever need on one web page from News and Sport to Email and Music Charts http://uk.my.yahoo.com