Re: [Slightly OT] IPC::Open3 broken in mod_perl/perl 5.6.0?

[Doug MacEachern]

On Mon, 17 Apr 2000, Richard Titmuss wrote:

 Hi,
 
 I have also had this problem. I checked the modperl-cvs archive and this
 problem has been fixed in the development release.

yes, the cvs version implements Apache::OPEN
 
 I still have an problem using IPC::Open2. This can be demonstrated by:
 
   use IPC::Open2;
   $pid = open2(\*A, \*B, '/usr/bin/ls');
 
 The error log shows:
 
 [error] Can't locate object method "FILENO" via package "Apache" at
 /usr/local/lib/perl5/5.6.0/IPC/Open3.pm line 183.

does this fix it:

sub Apache::FILENO {
untie *STDOUT;
fileno STDOUT;
}

?

Re: [Slightly OT] IPC::Open3 broken in mod_perl/perl 5.6.0?

[Richard Titmuss]

Hi,

I have also had this problem. I checked the modperl-cvs archive and this
problem has been fixed in the development release.

I still have an problem using IPC::Open2. This can be demonstrated by:

use IPC::Open2;
$pid = open2(\*A, \*B, '/usr/bin/ls');

The error log shows:

[error] Can't locate object method "FILENO" via package "Apache" at
/usr/local/lib/perl5/5.6.0/IPC/Open3.pm line 183.

I do not understand enough about the perl/mod-perl guts to produce a
patch. Any help appreciated.

Thanks,
Richard

-- 
Richard Titmuss Email: [EMAIL PROTECTED]
B55 Rm122, BT Laboratories  
Martlesham HeathTel:   +44 (0)1473 640306
Ipswich, Suffolk, IP5 3RE, UK   Fax:   +44 (0)1473 646885

[Slightly OT] IPC::Open3 broken in mod_perl/perl 5.6.0?

[Michael J Schout]

Sorry if this is slightly off topic.

I seem to have run into problems using IPC::Open3 under mod_perl 1.22 and perl
5.6.0.  This probelm only seems to have cropped up after I upgraded form perl
5.005 to perl 5.6.0.  What happens is I have an exception handler that opens
gpg and uses gpg to encrypt some data and email it to me in the case of an
exception.  The code looks like this:

my $input  = new IO::Handle;
my $output = new IO::Handle;
my $error  = new IO::Handle;

my $cmd = "gpg --homedir /etc/httpd/perl/gkgnsi/gpg -r $to -ea";
my $pid = IPC::Open3::open3($input, $output, $error, $cmd);

THis worked fine when I was running perl 5.005, but now it dies here, and the
apache error_log shows:

[error] Can't locate object method "OPEN" via package "Apache" at
/usr/lib/perl5/5.6.0/IPC/Open3.pm line 132.

Strange...

Has anyone seen anything like this?  Anyone have any ideas?

Thanks.
Mike