[Catalyst-commits] r12292 - in Catalyst-Controller-DBIC-API/1.003: . branches/moosify-validation-configurability/lib/Catalyst/Controller/DBIC/API

[nperez at dev.catalyst.perl.org]

Author: nperez
Date: 2009-12-10 10:04:30 +0000 (Thu, 10 Dec 2009)
New Revision: 12292

Modified:
   Catalyst-Controller-DBIC-API/1.003/
   Catalyst-Controller-DBIC-API/1.003/branches/moosify-validation-configurability/lib/Catalyst/Controller/DBIC/API/Base.pm
Log:
 r4259 at nicklaptop:  nicholas | 2009-12-10 04:03:10 -0600
 Support JSON boolean in validate for real this time



Property changes on: Catalyst-Controller-DBIC-API/1.003
___________________________________________________________________
Name: svk:merge
   - 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Controller-DBIC-API/1.001:9528
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Controller-DBIC-API/1.002:9762
992f488a-d630-404b-95f9-f7d0fdf28443:/local/ccda:4258
   + 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Controller-DBIC-API/1.001:9528
4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Controller-DBIC-API/1.002:9762
992f488a-d630-404b-95f9-f7d0fdf28443:/local/ccda:4259

Modified: Catalyst-Controller-DBIC-API/1.003/branches/moosify-validation-configurability/lib/Catalyst/Controller/DBIC/API/Base.pm
===================================================================
--- Catalyst-Controller-DBIC-API/1.003/branches/moosify-validation-configurability/lib/Catalyst/Controller/DBIC/API/Base.pm	2009-12-10 10:04:21 UTC (rev 12291)
+++ Catalyst-Controller-DBIC-API/1.003/branches/moosify-validation-configurability/lib/Catalyst/Controller/DBIC/API/Base.pm	2009-12-10 10:04:30 UTC (rev 12292)
@@ -330,8 +330,9 @@
 			# TODO: do automatic col type checking here
 			
 			# check for multiple values
-			if (ref($value) && ($value != JSON::Any::true || $value != JSON::Any::false)) {
-				$self->push_error($c, { message => "Multiple values for '${key}'" });
+			if (ref($value) && !($value == JSON::Any::true || $value == JSON::Any::false)) {
+                require Data::Dumper;
+				$self->push_error($c, { message => "Multiple values for '${key}': ${\Data::Dumper::Dumper($value)}" });
 			}
 
 			# check exists so we don't just end up with hash of undefs