Break out the test for #27839 into a new test file.

Skip the new t/op/magic-27839.t under minitest, as it mentions %+, which causes
the parser to attempt to load Tie::Hash::NamedCapture at *compile* time, which
causes miniperl to abort, as it doesn't support dynamic linking.

1 files changed, 1 insertions, 23 deletions

diff --git a/t/op/magic.t b/t/op/magic.t
index 4c7f70c76b..6951850e0f 100644
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 use Config;
 
-plan (tests => 85);
+plan (tests => 83);
 
 $Is_MSWin32  = $^O eq 'MSWin32';
 $Is_NetWare  = $^O eq 'NetWare';
@@ -480,28 +480,6 @@ is "@+", "10 1 6 10";
     ok $ok;
 }
 
-# Test for bug [perl #27839]
-{
-    my $x;
-    sub f {
-	"abc" =~ /(.)./;
-	$x = "@+";
-	return @+;
-    };
-    "pqrstuvwxyz" =~ /..(....)../; # prime @+ etc in this scope
-    my @y = f();
-    is $x, "@y", "return a magic array ($x) vs (@y)";
-
-    sub f2 {
-	"abc" =~ /(?<foo>.)./;
-	my @h =  %+;
-	$x = "@h";
-	return %+;
-    };
-    @y = f();
-    is $x, "@y", "return a magic hash ($x) vs (@y)";
-}
-
 # Test for bug [perl #36434]
 # Can not do this test on VMS, EPOC, and SYMBIAN according to comments
 # in mg.c/Perl_magic_clear_all_env()