tidy-up: whitespace (more in Perl)

Follow-up to 8eab2b7086 #17896
Cherry-picked from #17877
Closes #17901
This commit is contained in:
Viktor Szakats 2025-07-11 16:04:24 +02:00
parent 8eab2b7086
commit ddcfd2d511
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
43 changed files with 84 additions and 98 deletions

View file

@ -32,7 +32,7 @@ use warnings;
sub checkcmd {
my ($cmd)=@_;
my @paths;
if ($^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'os2') {
if($^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'os2') {
# PATH separator is different
@paths=(split(';', $ENV{'PATH'}));
}
@ -41,7 +41,7 @@ sub checkcmd {
"/sbin", "/usr/bin", "/usr/local/bin");
}
for(@paths) {
if( -x "$_/$cmd" && ! -d "$_/$cmd" ) {
if(-x "$_/$cmd" && ! -d "$_/$cmd") {
# executable bit but not a directory!
return "$_/$cmd";
}