diff Lib/IMPL/Web/View/TTControl.pm @ 188:029c9610528c

Memory leak tests in IMPL::Web::View
author cin
date Tue, 03 Apr 2012 20:08:42 +0400
parents 927653d01f4f
children 08015e2803f1
line wrap: on
line diff
--- a/Lib/IMPL/Web/View/TTControl.pm	Tue Apr 03 07:54:25 2012 +0400
+++ b/Lib/IMPL/Web/View/TTControl.pm	Tue Apr 03 20:08:42 2012 +0400
@@ -36,6 +36,7 @@
 	
 	if ( my $ctor = $template->blocks->{CTOR} ) {
 		$context->process($ctor, { this => $this } );
+		$this->templateVars('this',undef);
 	}
 	
 	$this->id($name . "-" . _GetNextId()) unless $this->id;
@@ -85,7 +86,7 @@
 	
 	my $this = shift;
 	
-	$this->nodeProperty(@_);
+	$this->nodeProperty($method,@_);
 }
 
 1;