search

nayakgi / perl-compiler

Automatically exported from code.google.com/p/perl-compiler
Other
0 stars 0 forks source link

Regexp::DESTROY override doesn't work in perlcc #352

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
$>perl -e'BEGIN{undef &Regexp::DESTROY} my $destroyed; {sub Regexp::DESTROY { 
$destroyed++ }} {  my $rx = qr//; }; print "ok\n" if($destroyed)'
ok

$>perlcc -O3 -r -e'BEGIN{undef &Regexp::DESTROY} my $destroyed; {sub 
Regexp::DESTROY { $destroyed++ }} {  my $rx = qr//; }; print "ok\n" 
if($destroyed)'

Original issue reported on code.google.com by todd.e.rinaldo on 7 Jul 2014 at 7:53

GoogleCodeExporter commented 9 years ago

Original comment by reini.urban on 8 Jul 2014 at 2:27

GoogleCodeExporter commented 9 years ago 
Fixed with dbi_ima 1.49_01

Original comment by reini.urban on 19 Jul 2014 at 5:46