Re^3: 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");
[download]

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

Comment on Re^3: Redirecting STDOUT from internal function with 5.6.1 restrictions Download Code

Replies are listed 'Best First'.
Re^4: Redirecting STDOUT from internal function with 5.6.1 restrictions by mgc (Novice) on Oct 12, 2004 at 20:43 UTC
Thanks for the input. It seems thought, your example is still writing to a file. I am trying to trap STDOUT and redirect to a variable(memory). mgc	[reply]