Author: jkeenan
Date: Wed Oct 3 05:23:12 2007
New Revision: 21770
Modified:
branches/reconfigure/t/configure/040-return_undef.t
Log:
Declare $tie and $errtie within block so they go out of scope more quickly.
Modified: branches/reconfigure/t/configure/040-return_undef.t
==============================================================================
--- branches/reconfigure/t/configure/040-return_undef.t (original)
+++ branches/reconfigure/t/configure/040-return_undef.t Wed Oct 3 05:23:12 2007
@@ -52,8 +52,9 @@
"command-line option '--debugging' has been stored in object");
my $rv;
-my ($tie, @lines, $errtie, @errlines);
+my (@lines, @errlines);
{
+ my ($tie, $errtie);
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
or croak "Unable to tie";
$errtie = tie *STDERR, "Parrot::IO::Capture::Mini"
