diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-10-21 09:30:32 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-10-21 19:55:06 -0400 |
| commit | b3de960c9ad0e39d5eff1c56932c46850c862067 (patch) | |
| tree | 8c2461ec79541dc88080685eed5b8eecf5c46fae /t/re/subst.t | |
| parent | e7619ccdfa0f8562897ad922b44837e5f65194e9 (diff) | |
| download | perl-b3de960c9ad0e39d5eff1c56932c46850c862067.tar.gz | |
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.
Diffstat (limited to 't/re/subst.t')
| -rw-r--r-- | t/re/subst.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/re/subst.t b/t/re/subst.t index 6224d64ff2..334d6ad7d6 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__ } |