Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete unnecessary comments

Browse source
This commit is contained in:
Richard Hansen 2024-06-24 02:09:57 -04:00
parent 96ada0c79e
commit 5620127c71
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ddclient.in
View file

@ -1228,7 +1228,6 @@ my @opt = (
); );
sub main { sub main {
## process args
my $opt_usage = process_args(@opt); my $opt_usage = process_args(@opt);
$saved_recap = ''; $saved_recap = '';
%saved_opt = %opt; %saved_opt = %opt;
@ -2027,15 +2026,12 @@ sub process_args {
my ($key, $specifier, $arg_usage) = @$_; my ($key, $specifier, $arg_usage) = @$_;
my $value = default($key); my $value = default($key);
## add a option specifier
push @spec, $key . $specifier; push @spec, $key . $specifier;
## define the default value which can be overwritten later
$opt{$key} //= undef; $opt{$key} //= undef;
next unless $arg_usage; next unless $arg_usage;
## add a line to the usage;
$usage .= " $arg_usage"; $usage .= " $arg_usage";
if (defined($value) && $value ne '') { if (defined($value) && $value ne '') {
$usage .= " (default: "; $usage .= " (default: ";
@ -2053,7 +2049,6 @@ sub process_args {
} }
$usage .= "\n"; $usage .= "\n";
} }
## process the arguments
if (!GetOptions(\%opt, @spec)) { if (!GetOptions(\%opt, @spec)) {
$opt{"help"} = 1; $opt{"help"} = 1;
} }