Modified:
   DBD-Pg/trunk/Changes
   DBD-Pg/trunk/Makefile.PL

Log:
Strawberry Perl fix.

Modified: DBD-Pg/trunk/Changes
=========================================================================== ===
--- DBD-Pg/trunk/Changes        (original)
+++ DBD-Pg/trunk/Changes        Sun Oct 12 09:48:04 2008
@@ -1,5 +1,11 @@
 ('GSM' is Greg Sabino Mullane, g...@turnstep.com)

+2.10.8
+
+       - Adjustment of Makefile.PL to fix problem with Strawberry Perl.
+               Thanks to Martin Evan (martin.ev...@easysoft.com) and Brian
+               (elspicyj...@gmail.com) on the dbi-users list.
+
 2.10.7 Released September 22, 2008 (subversion r11869)

        - Fix test issue when dbname contains dashes.

Modified: DBD-Pg/trunk/Makefile.PL
=========================================================================== ===
--- DBD-Pg/trunk/Makefile.PL    (original)
+++ DBD-Pg/trunk/Makefile.PL    Sun Oct 12 09:48:04 2008
@@ -226,6 +226,22 @@
        }
 }

+sub constants {
+       my $self = shift;
+
+       my $old_constants = $self->SUPER::constants();
+       my $new_constants = '';
+       for my $line (split /\n/ => $old_constants) {
+               if ($line =~ /^INC = .*strawberry.*/ ) {
+                       print qq(Strawberry Perl found; adjusting the INC variable;\n);
+                       $line . ' -I ' . DBI::DBD::dbd_dbi_arch_dir();
+                       print qq(INC is now $line\n);
+               }
+               $new_constants .= "$line\n";
+       }
+       return $new_constants;
+}
+
 sub MY::postamble { ## no critic ProhibitQualifiedSubDeclarations
        no strict 'subs'; ## no critic ProhibitNoStrict
        my $string = DBI::DBD->dbd_postamble();