Skip Menu |
 

This queue is for tickets about the Data-RuledValidator CPAN distribution.

Report information
The Basics
Id: 87299
Status: resolved
Priority: 0/
Queue: Data-RuledValidator

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments
Data-RuledValidator-0.12-returnor.patch



Subject: [PATCH] wrong return precedence
Download (untitled) / with headers
text/plain 133b
returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: Data-RuledValidator-0.12-returnor.patch
diff -bu Data-RuledValidator-0.12-4ruVND/lib/Data/RuledValidator/Plugin/Core.pm~ Data-RuledValidator-0.12-4ruVND/lib/Data/RuledValidator/Plugin/Core.pm --- Data-RuledValidator-0.12-4ruVND/lib/Data/RuledValidator/Plugin/Core.pm~ 2010-06-14 19:53:17.000000000 -0500 +++ Data-RuledValidator-0.12-4ruVND/lib/Data/RuledValidator/Plugin/Core.pm 2013-07-25 08:12:37.050825895 -0500 @@ -15,9 +15,9 @@ 'alphanum' => sub{my($self, $v) = @_; return $v =~/^[a-zA-Z0-9]+$/}, 'word' => sub{my($self, $v) = @_; return $v =~/^\w+$/}, 'words' => sub{my($self, $v) = @_; return $v =~/^[\w\s]+$/}, - 'any' => sub{my($self, $v) = @_; return defined $v and $v ne ''}, - 'not_null' => sub{my($self, $v) = @_; return defined $v and $v ne ''}, - 'null' => sub{my($self, $v) = @_; return not defined $v or $v eq ''}, + 'any' => sub{my($self, $v) = @_; return (defined $v and $v ne '')}, + 'not_null' => sub{my($self, $v) = @_; return (defined $v and $v ne '')}, + 'null' => sub{my($self, $v) = @_; return (not defined $v or $v eq '')}, ); 1;
Thanks for bug report. I've released new version to CPAN.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.