luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

perl: removed a double semicolon at end of line

Browse Source 
Remove double semicolons at end of line in Perl code.

Closes: #8709
Reviewed-by: Daniel Gustafsson <daniel@yesql.se>
This commit is contained in:
Matteo Baccan 2022-04-14 13:06:32 +02:00 committed by Daniel Gustafsson
parent b7c0bd68ff
commit 0a6eebfc14
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/ciconfig.pl
View File

@ -164,7 +164,7 @@ print "Never used configure options\n";
for my $w (sort keys %avail) {
if(!$used{$w}) {
printf " %s%s\n", $w,
$defaulton{$w} ? " (auto)":"";;
$defaulton{$w} ? " (auto)":"";
}
}

12
scripts/cijobs.pl
View File

@ -248,22 +248,22 @@ sub appveyor {
$job{'config'} = $1;
}
elsif($_ =~ /^ OPENSSL: (.*)/) {
$job{'openssl'} = $1 eq "ON" ? "true": "false";;
$job{'openssl'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ SCHANNEL: (.*)/) {
$job{'schannel'} = $1 eq "ON" ? "true": "false";;
$job{'schannel'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ ENABLE_UNICODE: (.*)/) {
$job{'unicode'} = $1 eq "ON" ? "true": "false";;
$job{'unicode'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ HTTP_ONLY: (.*)/) {
$job{'http-only'} = $1 eq "ON" ? "true": "false";;
$job{'http-only'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ TESTING: (.*)/) {
$job{'testing'} = $1 eq "ON" ? "true": "false";;
$job{'testing'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ SHARED: (.*)/) {
$job{'shared'} = $1 eq "ON" ? "true": "false";;
$job{'shared'} = $1 eq "ON" ? "true": "false";
}
elsif($_ =~ /^ TARGET: \"-A (.*)\"/) {
$job{'target'} = $1;

2
tests/runtests.pl
View File

@ -671,7 +671,7 @@ sub torture {
my @ttests = (1 .. $count);
if($shallow && ($shallow < $count)) {
my $discard = scalar(@ttests) - $shallow;
my $percent = sprintf("%.2f%%", $shallow * 100 / scalar(@ttests));;
my $percent = sprintf("%.2f%%", $shallow * 100 / scalar(@ttests));
logmsg " $count functions found, but only fail $shallow ($percent)\n";
while($discard) {
my $rm;