[mp2] Apache::RequestRec, IPC::Open[23] problem

[Ville Skyttä]

Hi,

The script below under mod_perl 1.99_08 (ModPerl::Registry), gives me
this:

  Can't locate object method "FILENO" via package
  "Apache::RequestRec" at /usr/lib/perl5/5.8.0/IPC/Open3.pm line 196.

A real world example of a script that has these problems is the W3C
Markup Validator,
<http://dev.w3.org/cvsweb/validator/httpd/cgi-bin/check?rev=1.200.2.79>.

The validator works under mod_perl 1, and I guess the test script would
as well (I'm unable to verify that at the moment, though).  Maybe a
mod_perl 2 bug/missing feature?

My installation is Red Hat 8.0, Apache 2.0.40, mod_perl 1.99_08 and Perl
5.8.0.  The test script:

  use IPC::Open2 qw(open2);
  use IO::File ();
  my $in  = IO::File->new_tmpfile();
  my $out = IO::File->new_tmpfile();
  print $in "foobar\n";
  seek $in, 0, 0;
  print "Content-Type: text/plain\n\n";
  my $pid = open2($out, $in, 'tee');
  undef $in;
  waitpid $pid, 0;
  seek $out, 0, 0;
  while (<$out>) {
    print;
  }
  undef $out;

Cheers,
-- 
\/ille Skyttä
ville.skytta at iki.fi