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 0d235b71b74e3736bdc2b8805c8d01b26b3932d5..ed7767cb9476681bb07b2585d48ac445e781462d 100755 (executable)
--- 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 a262cc232a090e943f10f21ce6931ca760bfde1d..38189d75abfaddf7e71264c90e5714473626b284 100755 (executable)
--- 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 1bacda1f55287a9a214e1b527d3eb92b88e60eda..624e705a5fe0e1d0e2cef9e4d3b18f411a50bdae 100755 (executable)
--- 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;