Mailing List Archive

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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org