in reply to
Re^2: Redirecting STDOUT from internal function with 5.6.1 restrictions
in thread Redirecting STDOUT from internal function with 5.6.1 restrictions
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 |