From 4206729ba3c39e440203a8ac3ecda62348881cf3 Mon Sep 17 00:00:00 2001 From: Florian Ragwitz Date: Fri, 10 Dec 2010 17:31:15 +0100 Subject: [PATCH] Localise temporary FHs in the EU::Constant tests This avoids makes them work on 5.6.2 again, where the fact that the "XS" glob is also used elsewhere in the tests triggered what seems to be a bug that causes *XS to lose it's "q" magic. --- cpan/ExtUtils-Constant/t/Constant.t | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cpan/ExtUtils-Constant/t/Constant.t b/cpan/ExtUtils-Constant/t/Constant.t index 17330f7..5805387 100644 --- a/cpan/ExtUtils-Constant/t/Constant.t +++ b/cpan/ExtUtils-Constant/t/Constant.t @@ -369,6 +369,9 @@ sub write_and_run_extension { my ($name, $items, $export_names, $package, $header, $testfile, $num_tests, $wc_args) = @_; + local *C; + local *XS; + my $c = tie *C, 'TieOut'; my $xs = tie *XS, 'TieOut'; -- 1.8.3.1