[Catalyst-commits] r11229 - Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-24 08:23:32 +0000 (Mon, 24 Aug 2009)
New Revision: 11229

Modified:
   Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm
Log:
ignore %$self keys that are not schema methods

Modified: Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm
===================================================================
--- Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm	2009-08-24 08:19:51 UTC (rev 11228)
+++ Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm	2009-08-24 08:23:32 UTC (rev 11229)
@@ -627,8 +627,7 @@
 
     for my $opt (keys %$self) {
         if (not exists $attributes{$opt}) {
-            die "Invalid schema option: $opt" unless $self->schema->can($opt);
-
+            next unless $self->schema->can($opt);
             $self->schema->$opt($self->{$opt});
         }
     }