X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FMySQL.pm;h=c4d5aecc59da6262bcdf23c7ccffe4f6d5909822;hb=e6642bff4ab915e171db8a00b5207e69d85a9d9a;hp=c9cf42c863a16f50946a878ca2b182cbc398d0ef;hpb=d666c4a72f2a6ad3830d39973480310aa415302e;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Parser/MySQL.pm b/lib/SQL/Translator/Parser/MySQL.pm
index c9cf42c..c4d5aec 100644
--- a/lib/SQL/Translator/Parser/MySQL.pm
+++ b/lib/SQL/Translator/Parser/MySQL.pm
@@ -343,11 +343,16 @@ create : CREATE PROCEDURE NAME not_delimiter "$delimiter"
 PROCEDURE : /procedure/i
     | /function/i
 
-create : CREATE algorithm /view/i NAME not_delimiter "$delimiter"
+create : CREATE algorithm(?) /view/i NAME not_delimiter "$delimiter"
     {
         @table_comments = ();
         my $view_name = $item[4];
-        my $sql = "$item[1] $item[2] $item[3] $item[4] $item[5]";
+        my $sql;
+        if (scalar(@{$item[2]}) == 1) {
+	        $sql = "$item[1] $item[2][0] $item[3] $item[4] $item[5]";
+        } else {
+            $sql = "$item[1] $item[3] $item[4] $item[5]";
+        }
         
         # Hack to strip database from function calls in SQL
         $sql =~ s#`\w+`\.(`\w+`\()##g;