diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-12-10 17:31:15 +0100 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-12-10 17:33:46 +0100 |
| commit | 4206729ba3c39e440203a8ac3ecda62348881cf3 (patch) | |
| tree | f7488145ffe6236ff4b33ab1bf83b2aee2ff6127 | |
| parent | ae28cfdabdb4b69fc46d64214c67a33c9e9b2683 (diff) | |
| download | perl-4206729ba3c39e440203a8ac3ecda62348881cf3.tar.gz | |
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.
| -rw-r--r-- | 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 17330f72fa..58053879b9 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'; |