diff options
author | Jay Berkenbilt <ejb@ql.org> | 2019-08-18 21:31:47 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2019-08-18 21:46:01 +0200 |
commit | c032f7c972706d5d90b018e9d0a96d56e0b25cc9 (patch) | |
tree | 26de7c6dfde7a0b4613840e8c4e79c89abfef8ce /qtest/module/TestDriver.pm | |
parent | 89dacd8eba529663ab9c410efffd698b3023a9d6 (diff) | |
download | qpdf-c032f7c972706d5d90b018e9d0a96d56e0b25cc9.tar.zst |
Improve how qtest finds windows /bin
Diffstat (limited to 'qtest/module/TestDriver.pm')
-rw-r--r-- | qtest/module/TestDriver.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/qtest/module/TestDriver.pm b/qtest/module/TestDriver.pm index 061d0e26..bc1cdb1c 100644 --- a/qtest/module/TestDriver.pm +++ b/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>; |