Disable perl2host() processing in TAP tests

adunstan · adunstan · commit f1ac4a74dee5 · 2022-02-17T09:59:59.000-05:00
This is a preliminary step towards removing it altogether, but this lets us double check that nothing breaks in the buildfarm before we do. Discussion: https://postgr.es/m/0ba775a2-8aa0-0d56-d780-69427cf6f33d@dunslane.net
diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -311,7 +311,7 @@ The returned path uses forward slashes but has no trailing slash.
 sub perl2host
 {
 	my ($subject) = @_;
-	return $subject unless $Config{osname} eq 'msys';
+	return $subject;
 	if ($is_msys2)
 	{
 		# get absolute, windows type path

Original file line number	Diff line number	Diff line change
`@@ -311,7 +311,7 @@ The returned path uses forward slashes but has no trailing slash.`
`311`	`311`	`sub perl2host`
`312`	`312`	`{`
`313`	`313`	`my ($subject) = @_;`
`314`		`- return $subject unless $Config{osname} eq 'msys';`
	`314`	`+ return $subject;`
`315`	`315`	`if ($is_msys2)`
`316`	`316`	`{`
`317`	`317`	`# get absolute, windows type path`