Use TCP/IP if we guess the testhost based on the port

dveeden · dveeden · commit e77e473c68b8 · 2023-09-09T19:35:52.000+02:00
diff --git a/Makefile.PL b/Makefile.PL
@@ -101,8 +101,9 @@ for my $key (qw/testdb testhost testuser testpassword testsocket testport
 }
 
 #if we have a testport but no host, assume localhost
+#but use 127.0.0.1 instead of 'localhost' to use TCP/IP
 if ( $opt->{testport} && !$opt->{testhost} ) {
-  $opt->{testhost} = 'localhost';
+  $opt->{testhost} = '127.0.0.1';
   $source->{testhost} = 'guessed';
 }
 

Original file line number	Diff line number	Diff line change
`@@ -101,8 +101,9 @@ for my $key (qw/testdb testhost testuser testpassword testsocket testport`
`101`	`101`	`}`
`102`	`102`
`103`	`103`	`#if we have a testport but no host, assume localhost`
	`104`	`+#but use 127.0.0.1 instead of 'localhost' to use TCP/IP`
`104`	`105`	`if ( $opt->{testport} && !$opt->{testhost} ) {`
`105`		`- $opt->{testhost} = 'localhost';`
	`106`	`+ $opt->{testhost} = '127.0.0.1';`
`106`	`107`	`$source->{testhost} = 'guessed';`
`107`	`108`	`}`
`108`	`109`