[svn:DBD-Pg] r14533 - DBD-Pg/trunk
| Newsgroups | gmane.comp.db.postgresql.dbdpg.cvs |
|---|---|
| Message-ID | <[email protected]> |
Author: turnstep
Date: Sat Nov 20 20:44:41 2010
New Revision: 14533
Modified:
DBD-Pg/trunk/Pg.pm
Log:
Allow data_sources to accept any case-variant of 'dbi:Pg' (CPAN bug 61574)
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Sat Nov 20 20:44:41 2010
@@ -178,7 +178,7 @@
## Future: connect to "postgres" when the minimum version we support is 8.0
my $connstring = 'dbname=template1';
if ($ENV{DBI_DSN}) {
- ($connstring = $ENV{DBI_DSN}) =~ s/dbi:Pg://;
+ ($connstring = $ENV{DBI_DSN}) =~ s/dbi:Pg://i;
}
if (length $attr) {
$connstring .= ";$attr";