use warnings;
use base 'DBIx::Class::Schema::Loader::DBI::Sybase::Common';
use Carp::Clan qw/^DBIx::Class/;
-use Class::C3;
+use mro 'c3';
-our $VERSION = '0.07000';
+our $VERSION = '0.07002';
=head1 NAME
$default =~ /^['(] (.*) [)']\z/x ? $1 :
$default =~ /^\d/ ? $default : \$default;
- if (eval { lc ${ $info->{default_value} } }||'' eq 'getdate()') {
+ if ((eval { lc ${ $info->{default_value} } }||'') eq 'getdate()') {
${ $info->{default_value} } = 'current_timestamp';
+
+ my $getdate = 'getdate()';
+ $info->{original}{default_value} = \$getdate;
}
}
}