projects
/
dbsrgits/DBIx-Class-Historic.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Squash NaN warnings on older perls
[dbsrgits/DBIx-Class-Historic.git]
/
lib
/
DBIx
/
Class
/
Storage
/
DBI
/
DB2.pm
diff --git
a/lib/DBIx/Class/Storage/DBI/DB2.pm
b/lib/DBIx/Class/Storage/DBI/DB2.pm
index
aea773f
..
7634eb6
100644
(file)
--- a/
lib/DBIx/Class/Storage/DBI/DB2.pm
+++ b/
lib/DBIx/Class/Storage/DBI/DB2.pm
@@
-18,7
+18,7
@@
sub sql_name_sep {
my $v = $self->next::method(@_);
if (! defined $v and ! @_) {
- $v = $self->next::method($self->_dbh_get_info(41) || '.');
+ $v = $self->next::method($self->_dbh_get_info('SQL_QUALIFIER_NAME_SEPARATOR') || '.');
}
return $v;