use strict;
use warnings;
-use Class::C3;
+use mro 'c3';
use base qw/
DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault
DBIx::Class::Schema::Loader::DBI
/;
use Carp::Clan qw/^DBIx::Class/;
-our $VERSION = '0.07000';
+our $VERSION = '0.07002';
=head1 NAME
delete $info->{default_value} if ref($info->{default_value}) eq 'SCALAR' && ${ $info->{default_value} } eq 'NULL';
- if (eval { lc ${ $info->{default_value} } }||'' eq 'current timestamp') {
+ if ((eval { lc ${ $info->{default_value} } }||'') eq 'current timestamp') {
${ $info->{default_value} } = 'current_timestamp';
+
+ my $orig_deflt = 'current timestamp';
+ $info->{original}{default_value} = \$orig_deflt;
}
}