romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-24 19:23:38 +03:00
Code Issues Projects Releases Packages Wiki Activity

perl: open... || -> open... or (cont.)

Browse source 
Also: unfold a few lines, fix a space, add a missing parentheses.

Follow-up to 678e63934c #22036

Closes #22047
This commit is contained in:
Viktor Szakats 2026-06-16 15:40:07 +02:00
parent 1bb75af8e9
commit be8f24323e
No known key found for this signature in database
18 changed files with 44 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tests/ftpserver.pl
View file

@ -215,7 +215,7 @@ sub exit_signal_handler {
sub ftpmsg {
# append to the server.input file
open(my $input, ">>", "$logdir/server$idstr.input") ||
open(my $input, ">>", "$logdir/server$idstr.input") or
logmsg "failed to open $logdir/server$idstr.input\n";
print $input @_;
@ -940,7 +940,7 @@ sub DATA_smtp {
logmsg "Store test number $testno in $filename\n";
open(my $file, ">", $filename) ||
open(my $file, ">", $filename) or
return 0; # failed to open output
my $line;
@ -1290,7 +1290,7 @@ sub APPEND_imap {
logmsg "Store test number $testno in $filename\n";
open(my $file, ">", $filename) ||
open(my $file, ">", $filename) or
return 0; # failed to open output
my $received = 0;
@ -2399,7 +2399,7 @@ sub STOR_ftp {
sendcontrol "125 Gimme gimme gimme!\r\n";
open(my $file, ">", $filename) ||
open(my $file, ">", $filename) or
return 0; # failed to open output
my $line;
@ -2826,7 +2826,7 @@ sub customize {
%customcount = (); #
%delayreply = (); #
open(my $custom, "<", "$logdir/$SERVERCMD") ||
open(my $custom, "<", "$logdir/$SERVERCMD") or
return 1;
logmsg "FTPD: Getting commands from $logdir/$SERVERCMD\n";