From: Matteo Baccan <matteo.baccan@gmail.com>
Date: Thu, 14 Apr 2022 11:06:32 +0000 (+0200)
Subject: perl: removed a double semicolon at end of line
X-Git-Tag: curl-7_83_0~51
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0a6eebfc1435f6e3b37c0081550c7742312831d2;p=thirdparty%2Fcurl.git

perl: removed a double semicolon at end of line

Remove double semicolons at end of line in Perl code.

Closes: #8709
Reviewed-by: Daniel Gustafsson <daniel@yesql.se>
---

diff --git a/scripts/ciconfig.pl b/scripts/ciconfig.pl
index 0d235b71b7..ed7767cb94 100755
--- a/scripts/ciconfig.pl
+++ b/scripts/ciconfig.pl
@@ -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)":"";
     }
 }
 
diff --git a/scripts/cijobs.pl b/scripts/cijobs.pl
index a262cc232a..38189d75ab 100755
--- a/scripts/cijobs.pl
+++ b/scripts/cijobs.pl
@@ -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;
diff --git a/tests/runtests.pl b/tests/runtests.pl
index 1bacda1f55..624e705a5f 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -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;