projects
/
dbsrgits/DBIx-Class-Schema-Loader.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
add ->{original}{default_value} when rewriting to current_timestamp
[dbsrgits/DBIx-Class-Schema-Loader.git]
/
lib
/
DBIx
/
Class
/
Schema
/
Loader
/
DBI
/
DB2.pm
diff --git
a/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
b/lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
index
0be5f1a
..
2d36a15
100644
(file)
--- a/
lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
+++ b/
lib/DBIx/Class/Schema/Loader/DBI/DB2.pm
@@
-133,6
+133,9
@@
sub _columns_info_for {
if ((eval { lc ${ $info->{default_value} } }||'') eq 'current timestamp') {
${ $info->{default_value} } = 'current_timestamp';
delete $info->{size};
+
+ my $orig_deflt = 'current timestamp';
+ $info->{original}{default_value} = \$orig_deflt;
}
}