This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The 1994b214 made the test dependent on Tie::Hash::NamedCapture.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Oct 2016 13:30:32 +0000 (09:30 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Oct 2016 23:55:06 +0000 (19:55 -0400)
Which is not available under miniperl.

To add to the fun, tie() is partly compile-time, so just simple
skipping is not enough.

t/re/subst.t

index 6224d64..334d6ad 100644 (file)
@@ -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__
 }