blob: 3e877a47f3e71c41ebb41683d28a03d6ca806b02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!./perl -w
BEGIN {
$SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
require './test.pl';
skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
plan(tests => 2);
}
use strict;
# 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)";
}
|
