projects
/
dbsrgits/DBIx-Class-Schema-Loader.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
fix multiple DEFAULT NULLs
[dbsrgits/DBIx-Class-Schema-Loader.git]
/
lib
/
DBIx
/
Class
/
Schema
/
Loader
/
DBI
/
Component
/
QuotedDefault.pm
diff --git
a/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
b/lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
index
ecfd87b
..
6518601
100644
(file)
--- a/
lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
+++ b/
lib/DBIx/Class/Schema/Loader/DBI/Component/QuotedDefault.pm
@@
-42,7
+42,8
@@
sub _columns_info_for {
$info->{default_value} = $1;
}
elsif ($def =~ /^NULL:?/i) {
- $info->{default_value} = \'null';
+ my $null = 'null';
+ $info->{default_value} = \$null;
}
else {
$info->{default_value} = \$def;