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.

diff --git a/t/re/subst.t b/t/re/subst.t
index 6224d64..334d6ad 100644 (file)
--- 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__
 }