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.

Reply via email to