in reply to Lost STDOUT?
I'll defer to this link. I can't assert its correctness, but the source is pristine.
Addition
As an aside, if you were not doing CGI and could count on your code being launched from a commandline shell, you *might* be able to get away with something like this.
#!/usr/bin/perl -w use strict; use AtExit; $_ = atexit(sub { open STDOUT, ">/dev/tty" or die; print "bar\n"; }); close STDOUT; exit 0;
But that's not a great approach. Caching the file descriptor is a better approach, but as prior poster noted, this probably isn't the problem anyway ... its just slow at work today and I thought I'd dummy some code up and post.
,welchavw
|
---|
In Section
Seekers of Perl Wisdom