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