[svn:DBD-Pg] r14533 - DBD-Pg/trunk

[turnstep]

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";