That last commit wasn't very thought-out.
Ken Youens-Clark [Mon, 20 Sep 2004 20:32:18 +0000 (20:32 +0000)]
lib/SQL/Translator/Producer/MySQL.pm

index a64a73c..446b176 100644 (file)
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::MySQL;
 
 # -------------------------------------------------------------------
-# $Id: MySQL.pm,v 1.39 2004-09-20 20:22:47 kycl4rk Exp $
+# $Id: MySQL.pm,v 1.40 2004-09-20 20:32:18 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -44,7 +44,7 @@ for fields, etc.).
 
 use strict;
 use vars qw[ $VERSION $DEBUG ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.39 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.40 $ =~ /(\d+)\.(\d+)/;
 $DEBUG   = 0 unless defined $DEBUG;
 
 use Data::Dumper;
@@ -126,19 +126,19 @@ sub produce {
             # Oracle "number" type -- figure best MySQL type
             #
             if ( lc $data_type eq 'number' ) {
-                if ( @size && $size[0] > 0 ) {
-                    # not an integer
-                    if ( scalar @size > 1 ) {
-                        $data_type = 'double';
-                    }
-                    elsif ( $size[0] >= 12 ) {
-                        $data_type = 'bigint';
-                    }
-                    elsif ( $size[0] <= 1 ) {
-                        $data_type = 'tinyint';
-                    }
+                # not an integer
+                if ( scalar @size > 1 ) {
+                    $data_type = 'double';
+                }
+                elsif ( $size[0] >= 12 ) {
+                    $data_type = 'bigint';
+                }
+                elsif ( $size[0] <= 1 ) {
+                    $data_type = 'tinyint';
+                }
+                else {
+                    $data_type = 'int';
                 }
-                $data_type ||= 'int';
             }
             #
             # Convert a large Oracle varchar to "text"