Re: open ">-" does not work

[Doug MacEachern]

On Thu, 28 Sep 2000, Vsevolod Ilyushchenko wrote:

> Hi,
> 
> Why does this script give no output under mod_perl, but works fine from the command 
>line:
> 
> #!/usr/bin/perl -w
> 
> use CGI;
> 
> print CGI->header();
> 
> open (AAA, ">-");

because the C level stdout is not hooked up to the client.  you can do
this as an alternative:

if ($ENV{MOD_PERL}) {
    tie *AAA, 'Apache';
}
else {
    open (AAA, ">-");
}