blob: c06250d975f5311a4c7a19ee69a7c5d88ff9e44c (
plain)
1
2
3
4
5
6
7
8
9
10
|
# 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' };
};
|
