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 |
#!./perl -w BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; undef &Regexp::DESTROY; } plan tests => 2; my $destroyed; { sub Regexp::DESTROY { $destroyed++ } } { my $rx = qr//; } is( $destroyed, 1, "destroyed regexp" ); undef $destroyed; { my $var = bless {}, "Foo"; my $rx = qr/(?{ $var })/; } is( $destroyed, 1, "destroyed regexp with closure capture" ); |