[Bast-commits] r4809 - DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2008-09-16 14:14:20 +0100 (Tue, 16 Sep 2008)
New Revision: 4809

Modified:
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
getting rid of warns about undefined value for accessor

Modified: DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-09-16 11:38:37 UTC (rev 4808)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-09-16 13:14:20 UTC (rev 4809)
@@ -149,7 +149,8 @@
                 $fk_constraint = $rel_info->{attrs}{is_foreign_key_constraint};
             }
             # it can not be multi
-            elsif ( $rel_info->{attrs}{accessor} eq 'multi' ) {
+            elsif ( $rel_info->{attrs}{accessor}
+                    && $rel_info->{attrs}{accessor} eq 'multi' ) {
                 $fk_constraint = 0;
             }
             # if indeed single, check if all self.columns are our primary keys.