$info->{size} = $info->{size} / 2;
}
elsif (lc($info->{data_type}) eq 'number') {
- $info->{data_type} = 'numeric';
+ $info->{original}{data_type} = 'number';
+ $info->{data_type} = 'numeric';
if (eval { $info->{size}[0] == 38 && $info->{size}[1] == 0 }) {
+ $info->{original}{size} = $info->{size};
+
$info->{data_type} = 'integer';
delete $info->{size};
}
$info->{original}{data_type} = 'binary_double';
}
- if (eval { lc(${ $info->{default_value} }) eq 'sysdate' }) {
- $info->{original}{default_value} = $info->{default_value};
-
+ if ((eval { lc(${ $info->{default_value} }) }||'') eq 'sysdate') {
my $current_timestamp = 'current_timestamp';
$info->{default_value} = \$current_timestamp;
+
+ my $sysdate = 'sysdate';
+ $info->{original}{default_value} = \$sysdate;
}
}