<?xml version="1.0" encoding="windows-1252"?>
<node id="398663" title="Re^3: Redirecting STDOUT from internal function with 5.6.1 restrictions" created="2004-10-12 15:30:53" updated="2005-03-10 17:02:55">
<type id="11">
note</type>
<author id="105128">
Jenda</author>
<data>
<field name="doctext">
&lt;p&gt;OK then. I should have tested my suggestions. Anyway this does seem to work fine in Perl 5.6.1:
&lt;code&gt;
use FileHandle;
use Test;

plan(tests =&gt; 3);
ok("first");

{
	local $Test::TESTOUT;
	open $Test::TESTOUT, '&gt;', "$ENV{TEMP}/zkTestRedirect.txt";

	ok("second");
}

ok("third");
&lt;/code&gt;&lt;/p&gt;


&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-105128"&gt;
&lt;p&gt;Jenda&lt;br&gt;&lt;table align=center&gt;&lt;tr&gt;&lt;td&gt;
&lt;small&gt;We'd like to help you learn to help yourself&lt;br&gt;
Look around you, all you see are sympathetic eyes&lt;br&gt;
Stroll around the grounds until you feel at home&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp;-- P. Simon in Mrs. Robinson&lt;/i&gt;&lt;/small&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/p&gt;
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
398587</field>
<field name="parent_node">
398659</field>
</data>
</node>
