Any idea why this works from the command-line, but not from within
mod_perl?

    #!/usr/bin/perl -Tw
     
    use strict;
     
    print "Content-type: text/plain\n\n";
    local *FH = select;
    print "FH: ",*FH,"\n";
    print FH "Printing to FH\n";
    p(\*FH,"Printing to FH via p().\n");
     
    sub p
    {
      my $handle = shift;
      print $handle @_;
    }

On mod_perl, I get the "FH:" line, but neither of the "Printing to"
lines.

I had a module that was doing essentially this, and spent a long time
tracking down the problem.

This is on an up-to-date Debian Woody system, with Apache 1.3.26 and
mod_perl 1.26, perl 5.8.0.

----Scott.

Reply via email to