OK then. I should have tested my suggestions. Anyway this does seem to work fine in Perl 5.6.1:
use FileHandle; use Test; plan(tests => 3); ok("first"); { local $Test::TESTOUT; open $Test::TESTOUT, '>', "$ENV{TEMP}/zkTestRedirect.txt"; ok("second"); } ok("third");
Jenda
|
We'd like to help you learn to help yourself Look around you, all you see are sympathetic eyes Stroll around the grounds until you feel at home -- P. Simon in Mrs. Robinson |
In reply to Re^3: Redirecting STDOUT from internal function with 5.6.1 restrictions
by Jenda
in thread Redirecting STDOUT from internal function with 5.6.1 restrictions
by mgc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |