Mercurial > pub > Impl

diff Lib/IMPL/SQL/Schema/MySQL/Formatter.pm @ 272:47db27ed5b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Mon, 28 Jan 2013 17:24:37 +0400
parents 56364d0c4b4f
children 2f06250bab5f
line wrap: on
line diff
--- a/Lib/IMPL/SQL/Schema/MySQL/Formatter.pm	Mon Jan 28 02:43:14 2013 +0400
+++ b/Lib/IMPL/SQL/Schema/MySQL/Formatter.pm	Mon Jan 28 17:24:37 2013 +0400
@@ -436,7 +436,8 @@
             $self->quote_names( @{ $constraint->{foreignColumns} || [] } ) ),
           ')';
 
-        if ( my $rule = uc( $constraint->{onDelete} ) ) {
+        if ( my $rule = $constraint->{onDelete} ) {
+        	$rule = uc($rule);
             grep $_ eq $rule, @fkRules
               or die Exception->new( "Invalid onDelete rule specified",
                 $constraint->{name}, $rule );
@@ -444,7 +445,8 @@
             push @parts, 'ON DELETE', $rule;
         }
 
-        if ( my $rule = uc( $constraint->{onUpdate} ) ) {
+        if ( my $rule = $constraint->{onUpdate} ) {
+        	$rule = uc($rule);
             grep $_ eq $rule, @fkRules
               or die Exception->new( "Invalid onUpdate rule specified",
                 $constraint->{name}, $rule );