From: Peter Rabbitson <ribasushi@cpan.org>
Date: Mon, 25 Aug 2008 10:19:10 +0000 (-0400)
Subject: Merge 'trunk' into 'view_support'
X-Git-Tag: v0.08240~88^2~4^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef2233538f2581237df7ba110a6f755ab3c34b4f;hp=5f5e87cf7c30224adfc28a6e9ffc7a6838eae421;p=dbsrgits%2FDBIx-Class.git

Merge 'trunk' into 'view_support'

r21901@martha (orig r4767):  ribasushi | 2008-08-25 05:19:10 -0400
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 5b313ba..3e915bc 100644
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -208,8 +208,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 ) : ()),
                   );