[perl5.git] / t / op / magic-27839.t

#!./perl -w

BEGIN {
    $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
    chdir 't' if -d 't';
    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)";
}
Commit	Line	Data
c4a9334d NC	1	#!./perl -w
	2
	3	BEGIN {
	4	$SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
b5efbd1f	5	chdir 't' if -d 't';
c4a9334d	6	require './test.pl';
b30b43eb FC	7	skip_all_if_miniperl(
	8	"no dynamic loading on miniperl, no Tie::Hash::NamedCapture"
	9	);
c4a9334d NC	10	}
c4a9334d NC	11
624c42e2 N	12	plan(tests => 2);
624c42e2 N	13
c4a9334d NC	14	use strict;
	15
	16	# Test for bug [perl #27839]
	17	{
	18	my $x;
	19	sub f {
	20	"abc" =~ /(.)./;
	21	$x = "@+";
	22	return @+;
	23	};
	24	"pqrstuvwxyz" =~ /..(....)../; # prime @+ etc in this scope
	25	my @y = f();
	26	is $x, "@y", "return a magic array ($x) vs (@y)";
	27
	28	sub f2 {
	29	"abc" =~ /(?<foo>.)./;
	30	my @h = %+;
	31	$x = "@h";
	32	return %+;
	33	};
	34	@y = f();
	35	is $x, "@y", "return a magic hash ($x) vs (@y)";
	36	}
	37