From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 25 Aug 2008 09:19:10 +0000 (+0000)
Subject: Force on_delete/on_update arguments to upper case for consistency with the rest of... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=555b3385868f4954e1faf0a01d4d691a07905250;p=dbsrgits%2FDBIx-Class-Historic.git

Force on_delete/on_update arguments to upper case for consistency with the rest of SQLT
---

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
index ce6e7e3..d4499aa 100644
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -198,8 +198,8 @@ sub parse {
                                     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 ) : ()),
                   );