In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b3de960c9ad0e39d5eff1c56932c46850c862067?hp=e7619ccdfa0f8562897ad922b44837e5f65194e9>
- Log ----------------------------------------------------------------- commit b3de960c9ad0e39d5eff1c56932c46850c862067 Author: Jarkko Hietaniemi <[email protected]> Date: Fri Oct 21 09:30:32 2016 -0400 The 1994b214 made the test dependent on Tie::Hash::NamedCapture. Which is not available under miniperl. To add to the fun, tie() is partly compile-time, so just simple skipping is not enough. ----------------------------------------------------------------------- Summary of changes: t/re/subst.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/re/subst.t b/t/re/subst.t index 6224d64..334d6ad 100644 --- a/t/re/subst.t +++ b/t/re/subst.t @@ -1120,7 +1120,9 @@ SKIP: { '[perl #129038 ] s/\xff//l no longer crashes'); } -{ + SKIP: { + skip("no Tie::Hash::NamedCapture under miniperl", 3) if is_miniperl; + # RT #23624 scoping of @+/@- when used with tie() #! /usr/bin/perl -w @@ -1130,6 +1132,7 @@ SKIP: { package main; + eval <<'__EOF__'; tie my %pre, 'Tie::Prematch'; my $foo = 'foobar'; $foo =~ s/.ob/$pre{ $foo }/; @@ -1146,4 +1149,5 @@ SKIP: { undef *Tie::Prematch::TIEHASH; undef *Tie::Prematch::FETCH; +__EOF__ } -- Perl5 Master Repository
