romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-24 11:43:38 +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

22
tests/serverhelp.pm
View file

@ -83,7 +83,7 @@ sub logmsg {
# we see warnings on Windows run that $logfile is used uninitialized
# TODO: not found yet where this comes from
$logfile = "serverhelp_uninitialized.log" if(!$logfile);
if(open(my $logfilefh, ">>", "$logfile")) {
if(open(my $logfilefh, ">>", $logfile)) {
print $logfilefh $now;
print $logfilefh @_;
close($logfilefh);
@ -165,7 +165,7 @@ sub servername_canon {
sub server_pidfilename {
my ($piddir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.pid';
return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${piddir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -174,7 +174,7 @@ sub server_pidfilename {
sub server_portfilename {
my ($piddir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.port';
return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${piddir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -184,7 +184,7 @@ sub server_logfilename {
my ($logdir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.log';
$trailer = '_stunnel.log' if(lc($proto) =~ /^(ftp|http|imap|pop3|smtp)s$/);
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -193,7 +193,7 @@ sub server_logfilename {
sub server_cmdfilename {
my ($logdir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.cmd';
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -202,7 +202,7 @@ sub server_cmdfilename {
sub server_inputfilename {
my ($logdir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.input';
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -211,7 +211,7 @@ sub server_inputfilename {
sub server_outputfilename {
my ($logdir, $proto, $ipver, $idnum) = @_;
my $trailer = '_server.output';
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -248,7 +248,7 @@ sub mainsockf_pidfilename {
die "unsupported protocol: '$proto'" unless($proto &&
(lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.pid' : '_sockfilt.pid';
return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${piddir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -259,7 +259,7 @@ sub mainsockf_logfilename {
die "unsupported protocol: '$proto'" unless($proto &&
(lc($proto) =~ /^(ftp|imap|pop3|smtp)s?$/));
my $trailer = (lc($proto) =~ /^ftps?$/) ? '_sockctrl.log' : '_sockfilt.log';
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -270,7 +270,7 @@ sub datasockf_pidfilename {
die "unsupported protocol: '$proto'" unless($proto &&
(lc($proto) =~ /^ftps?$/));
my $trailer = '_sockdata.pid';
return "${piddir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${piddir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************
@ -281,7 +281,7 @@ sub datasockf_logfilename {
die "unsupported protocol: '$proto'" unless($proto &&
(lc($proto) =~ /^ftps?$/));
my $trailer = '_sockdata.log';
return "${logdir}/". servername_canon($proto, $ipver, $idnum) ."$trailer";
return "${logdir}/". servername_canon($proto, $ipver, $idnum) . $trailer;
}
#***************************************************************************