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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-08-25 10:19:10 +0100 (Mon, 25 Aug 2008)
New Revision: 4767

Modified:
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
Force on_delete/on_update arguments to upper case for consistency with the rest of SQLT

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-08-24 15:29:27 UTC (rev 4766)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-08-25 09:19:10 UTC (rev 4767)
@@ -198,8 +198,8 @@
                                     fields           => \@keys,
                                     reference_fields => \@refkeys,
                                     reference_table  => $rel_table,
-                                    on_delete        => $cascade->{delete},
-                                    on_update        => $cascade->{update},
+                                    on_delete        => uc ($cascade->{delete} || ''),
+                                    on_update        => uc ($cascade->{update} || ''),
                                     (defined $is_deferrable ? ( deferrable => $is_deferrable ) : ()),
                   );