gen.pl: fix perl syntax

Follow-up to 324cf1d2e

diff --git a/docs/cmdline-opts/gen.pl b/docs/cmdline-opts/gen.pl
index 1cd4a050ec5b11a688a3f8d1b5e7512167642526..4bcedc36d275b26153fcbf66ea34c174745dee43 100755 (executable)
--- a/docs/cmdline-opts/gen.pl
+++ b/docs/cmdline-opts/gen.pl
@@ -6,7 +6,7 @@
 #                            | (__| |_| |  _ <| |___
 #                             \___|\___/|_| \_\_____|
 #
-# Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
+# Copyright (C) 1998 - 2021, Daniel Stenberg, <daniel@haxx.se>, et al.
 #
 # This software is licensed as described in the file COPYING, which
 # you should have received as part of this distribution. The terms
@@ -372,7 +372,7 @@ sub listhelp {
         if(length($opt) > 78) {
             print STDERR "WARN: the --$long name is too long\n";
         }
-        else if(length($desc) > 78) {
+        elsif(length($desc) > 78) {
             print STDERR "WARN: the --$long description is too long\n";
         }
         print $line;