--- postgres_locks	2007/06/12 11:02:00	1
+++ postgres_locks	2007/06/12 11:05:50	2
@@ -2,7 +2,7 @@
 use strict;
 use DBI;
 
-my $dbhost = $ENV{'dbhost'} || '127.0.0.1';
+my $dbhost = $ENV{'dbhost'};
 my $dbname = $ENV{'dbname'} || 'template1';
 my $dbuser = $ENV{'dbuser'} || 'postgres';
 my $dbpass = $ENV{'dbpass'} || '';
@@ -26,7 +26,7 @@
 exlocks.critical 10
 EOF
 } else {
-    my $Con = "DBI:Pg:dbname=$dbname;host=$dbhost";
+    my $Con = "DBI:Pg:dbname=$dbname", $dbhost ? ";host=$dbhost" : "";
     my $Dbh = DBI->connect ($Con,
                             $dbuser,
 			    $dbpass,