[perl5.git] / t / op / closure_test.pl

# This file exists to test closure prototypes with no CvOUTSIDE.  Only
# by putting this in a separate file can we get a sub (this file’s
# main CV) with no CvOUTSIDE.  When the outer sub is freed, the inner
# subs also get CvOUTSIDE set to null.

	my $x;
	$closure_test::s2 = sub {
	    $x;
	    sub { $x; '10 cubes' };
	};
Commit	Line	Data
0f9db002 FC	1	# This file exists to test closure prototypes with no CvOUTSIDE. Only
	2	# by putting this in a separate file can we get a sub (this file’s
	3	# main CV) with no CvOUTSIDE. When the outer sub is freed, the inner
	4	# subs also get CvOUTSIDE set to null.
	5
	6	my $x;
	7	$closure_test::s2 = sub {
	8	$x;
	9	sub { $x; '10 cubes' };
	10	};