From 65714165f9c454d6c8a9e5462f1cc04f07bcf543 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Tue, 10 Nov 2009 10:51:26 -0500
Subject: [PATCH] Fix t_case_write* mis-sharing variable

---
 test_regress/t/t_case_write1.pl | 4 ++--
 test_regress/t/t_case_write2.pl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test_regress/t/t_case_write1.pl b/test_regress/t/t_case_write1.pl
index ba240501e..8ff03e216 100755
--- a/test_regress/t/t_case_write1.pl
+++ b/test_regress/t/t_case_write1.pl
@@ -7,7 +7,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Lesser General Public License Version 3 or the Perl Artistic License
 # Version 2.0.
 
-$golden_out ||= "t/$Self->{name}.out";
+$Self->{golden_out} ||= "t/$Self->{name}.out";
 
 compile (
 	 v_flags2 => [$Self->{v3}?"--stats --O3 -x-assign fast":""],
@@ -17,5 +17,5 @@ execute (
 	 check_finished=>1,
      );
 
-ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $golden_out));
+ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $Self->{golden_out}));
 1;
diff --git a/test_regress/t/t_case_write2.pl b/test_regress/t/t_case_write2.pl
index 455859e93..f19e4f4e5 100755
--- a/test_regress/t/t_case_write2.pl
+++ b/test_regress/t/t_case_write2.pl
@@ -7,7 +7,7 @@ if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); di
 # Lesser General Public License Version 3 or the Perl Artistic License
 # Version 2.0.
 
-$golden_out ||= "t/$Self->{name}.out";
+$Self->{golden_out} ||= "t/$Self->{name}.out";
 
 compile (
 	 v_flags2 => [$Self->{v3}?"--stats --O3 -x-assign fast":""],
@@ -17,6 +17,6 @@ execute (
 	 check_finished=>1,
      );
 
-ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $golden_out));
+ok(files_identical("$Self->{obj_dir}/$Self->{name}_logger.log", $Self->{golden_out}));
 
 1;