romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-07-31 12:08:05 +03:00
Code Issues Projects Releases Packages Wiki Activity

scripts: drop redundant double-quotes: "$var" -> $var (Perl)

Browse source 
Closes #21009
This commit is contained in:
Viktor Szakats 2026-03-19 01:15:43 +01:00
parent f45bf74b5a
commit d5014a2b95
No known key found for this signature in database
33 changed files with 161 additions and 161 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tests/processhelp.pm
View file

@ -86,7 +86,7 @@ sub pidfromfile {
my $waits = 0;
# wait at max 15 seconds for the file to exist and have valid content
while(!$pid && ($waits <= ($timeout_sec * 10))) {
if(-f $pidfile && -s $pidfile && open(my $pidfh, "<", "$pidfile")) {
if(-f $pidfile && -s $pidfile && open(my $pidfh, "<", $pidfile)) {
$pid = 0 + <$pidfh>;
close($pidfh);
$pid = 0 if($pid < 0);
@ -137,7 +137,7 @@ sub pidexists {
my $filter = "PID eq $pid";
# https://ss64.com/nt/tasklist.html
my $result = `tasklist -fi \"$filter\" 2>$dev_null`;
if(index($result, "$pid") != -1) {
if(index($result, $pid) != -1) {
return -$pid;
}
}
@ -478,7 +478,7 @@ sub set_advisor_read_lock {
my ($filename) = @_;
my $fileh;
if(open($fileh, ">", "$filename") && close($fileh)) {
if(open($fileh, ">", $filename) && close($fileh)) {
return;
}
printf "Error creating lock file $filename error: $!\n";