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
#
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;
# 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"