gen.pl: fix perl syntax

Follow-up to 324cf1d2e
This commit is contained in:
Daniel Stenberg 2021-01-12 08:12:13 +01:00
parent 3d78301106
commit 33993d45fe
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 2 additions and 2 deletions

View File

@ -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;