From: Peter Rabbitson 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 ) : ()), );