Dear Ken.
Thank you for your assistance.
> warn "tied(*STDOUT) is " . tied(*STDOUT) . ", " . *STDOUT if $debug;
> $info->{'old_stdout'} = ref tied(*STDOUT);
> untie *STDOUT;
I did the change and got the following output:
*******info for /var/galaxyweb/htdocs/index.html is at
/var/galaxyweb/perl/Apache/Filter.pm line 32.
/var/galaxyweb/htdocs/index.html: This is the first filter at
/var/galaxyweb/perl/Apache/Filter.pm line 61.
Untie()ing STDOUT at /var/galaxyweb/perl/Apache/Filter.pm line 71.
tied(*STDOUT) is , *main::STDOUT at /var/galaxyweb/perl/Apache/Filter.
pm line 72.
Tie()ing STDOUT to Apache::Filter at /var/galaxyweb/perl/Apache/Filter
.pm line 91.
END info is old_stdout count 1 fh_in GLOB(0x8630dac) at
/var/galaxyweb/perl/Apache/Filter.pm line 95.
*******info for /var/galaxyweb/htdocs/index.html is old_stdout count
1 fh_in GLOB(0x8630dac) at /var/galaxyweb/perl/Apache/Filter.pm line
32, <GEN0> chunk 179.
Turning STDOUT (Apache::Filter) into filter_fh_in at
/var/galaxyweb/perl/Apache/Filter.pm line 55.
Tie()ing STDOUT to '' for finish at /var/galaxyweb/perl/Apache/Filter.
pm line 84.
[Fri Oct 15 09:03:11 1999] [error] Can't locate object method
"TIEHANDLE" via package "" at /var/galaxyweb/perl/Apache/Filter.pm
line 86.
It seems to me (i don't know much about tieing) as STDOUT isn't tied.
Do you have an idea? What should tied(*STDOUT) return?
I will try it today on another plattform (Solaris instead of Linux) and look what's
happening there.
Thank you again,
Roli
--
Roland Alder, Doerfli 3 / Schmidweg, CH-8634 Hombrechtikon
e-mail: [EMAIL PROTECTED], WWW: http://galaxy.ch/roli/