I blocked the call to sendmail and the handles were restored and the print command elsewhere executed.
# SendMail(%mail) or die $Mail::sendMail::error;
unblocking and
#restore the file standard handles *STDOUT = $stdout; *STDERR = $stderr; close($fh); print "stdout 2\n";
results in: print() on closed filehandle $fh at /home/abcus/public_html/httpsdocs/cgi-bin/lib/perl/manageusers.pm line 1124. stderr 2
So sendMail call is causing problem
ugh
In reply to Re^3: STDERR Restore after redirect
by tultalk
in thread STDERR Restore after redirect
by tultalk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |