From: Larry Leszczynski <larryl@cpan.org>
Date: Tue, 23 Apr 2013 19:41:21 +0000 (-0600)
Subject: Suppress "Exiting subroutine via next"
X-Git-Tag: v0.011017~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3906ace29e7c3a43c8c14247f81a9ec9f187743b;p=dbsrgits%2FSQL-Translator.git

Suppress "Exiting subroutine via next"
---

diff --git a/lib/SQL/Translator/Producer/MySQL.pm b/lib/SQL/Translator/Producer/MySQL.pm
index 6c06caa..356f4b6 100644
--- a/lib/SQL/Translator/Producer/MySQL.pm
+++ b/lib/SQL/Translator/Producer/MySQL.pm
@@ -731,7 +731,7 @@ sub create_constraint
 
     my $reference_table_name = quote_table_name($c->reference_table, $qt);
 
-    my @fields = $c->fields or next;
+    my @fields = $c->fields or return;
 
     if ( $c->type eq PRIMARY_KEY ) {
         return 'PRIMARY KEY (' . $qf . join("$qf, $qf", @fields). $qf . ')';