From: Ken Youens-Clark Date: Mon, 18 Aug 2003 15:46:22 +0000 (+0000) Subject: Breaking a long line. X-Git-Tag: v0.04~308 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1eb08c80578b78d74428ef90496e4b658c6636a1;p=dbsrgits%2FSQL-Translator.git Breaking a long line. --- diff --git a/lib/SQL/Translator/Parser/MySQL.pm b/lib/SQL/Translator/Parser/MySQL.pm index 01c95da..a8ba229 100644 --- a/lib/SQL/Translator/Parser/MySQL.pm +++ b/lib/SQL/Translator/Parser/MySQL.pm @@ -1,7 +1,7 @@ package SQL::Translator::Parser::MySQL; # ------------------------------------------------------------------- -# $Id: MySQL.pm,v 1.32 2003-08-17 07:44:06 rossta Exp $ +# $Id: MySQL.pm,v 1.33 2003-08-18 15:46:22 kycl4rk Exp $ # ------------------------------------------------------------------- # Copyright (C) 2003 Ken Y. Clark , # darren chamberlain , @@ -123,7 +123,7 @@ Here's the word from the MySQL site use strict; use vars qw[ $DEBUG $VERSION $GRAMMAR @EXPORT_OK ]; -$VERSION = sprintf "%d.%02d", q$Revision: 1.32 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.33 $ =~ /(\d+)\.(\d+)/; $DEBUG = 0 unless defined $DEBUG; use Data::Dumper; @@ -385,7 +385,9 @@ data_type : WORD parens_value_list(s?) type_qualifier(s?) elsif ( lc $type eq 'bigint' ) { $size = [20]; } - elsif ( lc $type =~ /(float|double|decimal|numeric|real|fixed|dec)/ ) { + elsif ( + lc $type =~ /(float|double|decimal|numeric|real|fixed|dec)/ + ) { $size = [8,2]; } }