Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/Validator/RegExp.pm @ 105:a6e9759ff88a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a validation errors parameters
author wizard
date Tue, 11 May 2010 02:59:49 +0400
parents 196bf443b5e1
children e6447ad85cb4
comparison
equal deleted inserted replaced
104:196bf443b5e1 105:a6e9759ff88a
26 my ($this,$node,$ctx) = @_; 26 my ($this,$node,$ctx) = @_;
27 27
28 my $rx = $this->nodeValue; 28 my $rx = $this->nodeValue;
29 return new IMPL::DOM::Schema::ValidationError( 29 return new IMPL::DOM::Schema::ValidationError(
30 Node => $node, 30 Node => $node,
31 Source => ( $ctx && $ctx->{Source} ) || $this->parentNode, 31 Source => $ctx && $ctx->{Source} || $this->parentNode,
32 Schema => $this->parentNode, 32 Schema => $this->parentNode,
33 Message => $this->message 33 Message => $this->message
34 ) unless (not $node->isComplex) and $node->nodeValue =~ /$rx/; 34 ) unless (not $node->isComplex) and $node->nodeValue =~ /$rx/;
35 return (); 35 return ();
36 } 36 }