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

Delete unused varargs from _read_config and parse_assignment(s)

Browse source
This commit is contained in:
Richard Hansen 2020-05-25 16:34:09 -04:00
parent dc37e00d9d
commit 6757c2ec0e
1 changed files with 7 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ddclient
View file

@ -1074,14 +1074,13 @@ sub read_cache {
## parse_assignment(string) return (name, value, rest)
######################################################################
sub parse_assignments {
my $rest = shift;
my @args = @_;
my ($rest) = @_;
my %variables = ();
my ($name, $value);
while (1) {
$rest =~ s/^\s+//;
($name, $value, $rest) = parse_assignment($rest, @args);
($name, $value, $rest) = parse_assignment($rest);
if (defined $name) {
$variables{$name} = $value;
} else {
@ -1091,8 +1090,7 @@ sub parse_assignments {
return ($rest, %variables);
}
sub parse_assignment {
my $rest = shift;
my $stop = @_ ? shift : '[\n\s,]';
my ($rest) = @_;
my ($c, $name, $value);
my ($escape, $quote) = (0, '');
@ -1110,7 +1108,7 @@ sub parse_assignment {
$quote = ''
} elsif (!$quote && $c =~ /[\'\"]/) {
$quote = $c;
} elsif (!$quote && $c =~ /^${stop}/) {
} elsif (!$quote && $c =~ /^[\n\s,]/) {
last;
} else {
$value .= $c;
@ -1124,19 +1122,15 @@ sub parse_assignment {
## read_config
######################################################################
sub read_config {
my $file = shift;
my $config = shift;
my $globals = shift;
my %globals = ();
_read_config($config, $globals, '', $file, %globals);
my ($file, $config, $globals) = @_;
_read_config($config, $globals, '', $file);
}
sub _read_config {
my $config = shift;
my $globals = shift;
my $stamp = shift;
local $file = shift;
my %globals = @_;
my %globals = ();
my %config = ();
my $content = '';