Fix t_case_write* mis-sharing variable

This commit is contained in:
Wilson Snyder 2009-11-10 10:51:26 -05:00
parent 82d917c2c5
commit 65714165f9
2 changed files with 4 additions and 4 deletions

View File

@ -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;

View File

@ -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;