Re^4: Solving Deep recursion with a tied Filehandle

in reply to Re^3: Solving Deep recursion with a tied Filehandle
in thread Solving Deep recursion with a tied Filehandle

How about

{
  local *TEMP;

  open(TEMP, ">&STDOUT")
  or die("Unable to dup STDOUT: $!\n");

  undef(*STDOUT);

  tie *STDOUT, 'FileHandle::A', *TEMP;
}

print "testing";
[download]

Comment on Re^4: Solving Deep recursion with a tied Filehandle Download Code

Replies are listed 'Best First'.
Re^5: Solving Deep recursion with a tied Filehandle by cog (Parson) on Oct 16, 2005 at 14:17 UTC
Nope :-\ Same thing :-\	[reply]
Re^6: Solving Deep recursion with a tied Filehandle by ikegami (Patriarch) on Oct 16, 2005 at 16:56 UTC
That's so weird. I wonder why. They all work with 5.6.1 and 5.8.0	[reply]

In Section Seekers of Perl Wisdom