Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/Validator/Compare.pm @ 125:a4b0a819bbda
Small fixes in IMPL::DOM::Schema
author | wizard |
---|---|
date | Thu, 10 Jun 2010 17:43:51 +0400 |
parents | c6fb6964de4c |
children | 76515373dac0 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Validator/Compare.pm Thu Jun 10 02:45:59 2010 +0400 +++ b/Lib/IMPL/DOM/Schema/Validator/Compare.pm Thu Jun 10 17:43:51 2010 +0400 @@ -9,7 +9,7 @@ BEGIN { public property targetProperty => prop_all; public property op => prop_all; - public property nodePath => prop_get | owner_set; + public property nodePath => prop_all; public property optional => prop_all; private property _pathTranslated => prop_all; private property _targetNode => prop_all; @@ -20,6 +20,7 @@ 'IMPL::DOM::Schema::Validator' => sub { my %args = @_; $args{nodeName} ||= 'Compare'; + delete @args{qw(targetProperty op nodePath optional message)}; %args; } ); @@ -114,7 +115,7 @@ my $query = $this->_pathTranslated() || $this->_pathTranslated($this->TranslatePath($this->nodePath)); - my ($foreignNode) = $node->selectNodes($query); + my ($foreignNode) = $node->selectNodes(@$query); my $Source = $ctx && $ctx->{Source} || $this->parentNode;