diff Lib/IMPL/DOM/Schema/SimpleNode.pm @ 124:e30bdd040fe3

IMPL::Web::TT::Form concept
author wizard
date Thu, 10 Jun 2010 02:45:59 +0400
parents 196bf443b5e1
children 1e7f03414b65
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleNode.pm	Wed Jun 09 17:53:12 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/SimpleNode.pm	Thu Jun 10 02:45:59 2010 +0400
@@ -12,7 +12,12 @@
 }
 
 our %CTOR = (
-    'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args}
+    'IMPL::DOM::Schema::Node' => sub {
+    	my %args = @_;
+    	$args{nodeName} ||= 'SimpleNode';
+    	delete @args{qw(inflator messageInflateError)};
+    	%args
+    }
 );
 
 sub CTOR {