diff Lib/IMPL/DOM/Node.pm @ 188:029c9610528c

Memory leak tests in IMPL::Web::View
author cin
date Tue, 03 Apr 2012 20:08:42 +0400
parents d1676be8afcc
children 4d0e1962161c
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Node.pm	Tue Apr 03 07:54:25 2012 +0400
+++ b/Lib/IMPL/DOM/Node.pm	Tue Apr 03 20:08:42 2012 +0400
@@ -370,6 +370,8 @@
     my $this = shift;
     my $name = shift;
     
+    return unless defined $name;
+    
     if (my $method = $this->can($name)) {
     	unshift @_,$this;
     	# use goto to preserve calling context