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.
