Author: richter Date: Tue Jan 20 08:47:40 2015 New Revision: 1653210 URL: http://svn.apache.org/r1653210 Log: Fix memory leaks
Modified: perl/embperl/trunk/Embperl/Form.pm Modified: perl/embperl/trunk/Embperl/Form.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1653210&r1=1653209&r2=1653210&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form.pm (original) +++ perl/embperl/trunk/Embperl/Form.pm Tue Jan 20 08:47:40 2015 @@ -32,6 +32,7 @@ use Embperl::Inline ; use Data::Dumper ; use Storable ; use MIME::Base64 ; +use Scalar::Util qw{weaken} ; our %forms ; our $form_cnt = 1 ; @@ -77,7 +78,8 @@ sub sub_new # The following lines needs to there twice! # some weired bug in Perl? $Embperl::FormData::forms{$self -> {formptr}} = $self ; - $Embperl::FormData::forms{$self -> {formptr}} = $self ; + weaken($Embperl::FormData::forms{$self -> {formptr}}); + #$Embperl::FormData::forms{$self -> {formptr}} = $self ; if ($toplevel) { --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org