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

Author: turnstep
Date: Sun Dec  7 10:12:07 2008
New Revision: 12142

Modified:
   DBD-Pg/trunk/Makefile.PL

Log:
Prevent warnings if library information not found.


Modified: DBD-Pg/trunk/Makefile.PL
==============================================================================
--- DBD-Pg/trunk/Makefile.PL	(original)
+++ DBD-Pg/trunk/Makefile.PL	Sun Dec  7 10:12:07 2008
@@ -77,14 +77,19 @@
 my ($major_ver, $minor_ver, $patch, $conf, $bindir) = map {$pg->$_}
 	qw/major_version minor_version patch_version configure bin_dir/;
 my $initdb = '';
-if (-d $bindir) {
+if (defined $bindir and -d $bindir) {
 	my $testinitdb = "$bindir${sep}initdb";
 	if (-e $testinitdb) {
 		$initdb = $testinitdb;
 	}
 }
-my $serverversion = sprintf '%d%.02d%.02d', $major_ver, $minor_ver, $patch;
-my $defaultport = $conf =~ /with-pgport=(\d+)/ ? $1 : 5432;
+my $serverversion = 0;
+my $defaultport = 0;
+
+if (defined $major_ver) {
+	$serverversion = sprintf '%d%.02d%.02d', $major_ver, $minor_ver, $patch;
+	$defaultport = $conf =~ /with-pgport=(\d+)/ ? $1 : 5432;
+}
 
 if ((!$ENV{POSTGRES_INCLUDE} or !$ENV{POSTGRES_LIB}) and !$ENV{POSTGRES_HOME}) {
     $POSTGRES_INCLUDE = $pg->inc_dir;