diff Lib/IMPL/DOM/Schema/Property.pm @ 101:d8dc6cad3f55

Schema in progress
author wizard
date Thu, 06 May 2010 17:55:59 +0400
parents 16ada169ca75
children c289ed9662ca
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Property.pm	Thu May 06 00:54:17 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/Property.pm	Thu May 06 17:55:59 2010 +0400
@@ -36,7 +36,7 @@
     
     if ($this->minOccur) {
         my $prop = $this->name;
-        my $nodeProp = new IMPL::DOM::Node(nodeName => '::property', nodeValue => $node->$prop() || $node->nodePropety($prop));
+        my $nodeProp = new IMPL::DOM::Node(nodeName => '::property', nodeValue => eval { $node->$prop() } || $node->nodeProperty($prop));
         
         if (! $nodeProp->nodeValue) {
             return new IMPL::DOM::Schema::ValidationError(