elsif ($def =~ /^\((-?\d.*?)\)(?:::[\w\s]+)?\z/) {
$info->{default_value} = $1;
}
- elsif ($def =~ /^(\d.*?)(?:::[\w\s]+)?\z/) {
+ elsif ($def =~ /^(-?\d.*?)(?:::[\w\s]+)?\z/) {
$info->{default_value} = $1;
}
elsif ($def =~ /^NULL:?/i) {
- $info->{default_value} = \'null';
+ my $null = 'null';
+ $info->{default_value} = \$null;
}
else {
$info->{default_value} = \$def;