Frank Wiles <[EMAIL PROTECTED]> writes:
[...]
> First off I would convert it to using IO::File or somehow get
> rid of using globs. Such as my $fh = select; But this won't
> solve your error, just makes the code easier to work with.
I actually tried that, but couldn't get it to work:
#!/usr/bin/perl -Tw
use strict;
print "Content-type: text/plain\n\n";
my $fh = select;
print $fh "hi\n";
results in: Can't use string ("main::STDOUT") as a symbol ref while
"strict refs" in use at ./test.pl line 8.
> I think the problem you are running into is that under mod_perl
> grabbing STDOUT is a little different. I think this should point
> you in the right direction:
>
> http://perl.apache.org/docs/1.0guideporting.html#STDIN__STDOUT_and_STDERR_streams
Ah, OK. That's a little annoying; I'll have to go hack on the module
to teach it about mod_perl. I wonder why select doesn't do The Right
Thing on its own?...
----Scott.
