In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4206729ba3c39e440203a8ac3ecda62348881cf3?hp=ae28cfdabdb4b69fc46d64214c67a33c9e9b2683>
- Log ----------------------------------------------------------------- commit 4206729ba3c39e440203a8ac3ecda62348881cf3 Author: Florian Ragwitz <[email protected]> Date: Fri Dec 10 17:31:15 2010 +0100 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. ----------------------------------------------------------------------- Summary of changes: cpan/ExtUtils-Constant/t/Constant.t | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) 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'; -- Perl5 Master Repository
