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;