Improve how qtest finds windows /bin

Jay Berkenbilt
1 parent 89dacd8e
Showing 1 changed file with 1 additions and 4 deletions
qtest/module/TestDriver.pm
@@ -1780,10 +1780,7 @@ sub winrun
     my $tempfilename = "$tempdir/winrun.tmp";
     if (! defined $winbin)
     {
-	my $comspec = $ENV{'COMSPEC'};
-	$comspec =~ s,\\,/,g;
-	if ((system("sh -c 'cd /bin; $comspec /c cd'" .
-		    " > $tempfilename") == 0) &&
+	if ((system("sh -c 'cd /bin; pwd -W' > $tempfilename") == 0) &&
 	    open(F, "<$tempfilename"))
 	{
 	    $winbin = <F>;