enh(collection): can use constant options (#3148)

This commit is contained in:
qgarnier 2021-09-27 14:51:07 +02:00 committed by GitHub
parent 699112618c
commit eef4731d79
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 8 additions and 8 deletions

View File

@ -774,11 +774,11 @@ sub set_constants {
my ($self, %options) = @_; my ($self, %options) = @_;
my $constants = {}; my $constants = {};
return $constants if (!defined($self->{config}->{constants})); if (defined($self->{config}->{constants})) {
foreach (keys %{$self->{config}->{constants}}) { foreach (keys %{$self->{config}->{constants}}) {
$constants->{'constants.' . $_} = $self->{config}->{constants}->{$_}; $constants->{'constants.' . $_} = $self->{config}->{constants}->{$_};
} }
}
foreach (keys %{$self->{option_results}->{constant}}) { foreach (keys %{$self->{option_results}->{constant}}) {
$constants->{'constants.' . $_} = $self->{option_results}->{constant}->{$_}; $constants->{'constants.' . $_} = $self->{option_results}->{constant}->{$_};
} }

View File

@ -710,11 +710,11 @@ sub set_constants {
my ($self, %options) = @_; my ($self, %options) = @_;
my $constants = {}; my $constants = {};
return $constants if (!defined($self->{config}->{constants})); if (defined($self->{config}->{constants})) {
foreach (keys %{$self->{config}->{constants}}) { foreach (keys %{$self->{config}->{constants}}) {
$constants->{'constants.' . $_} = $self->{config}->{constants}->{$_}; $constants->{'constants.' . $_} = $self->{config}->{constants}->{$_};
} }
}
foreach (keys %{$self->{option_results}->{constant}}) { foreach (keys %{$self->{option_results}->{constant}}) {
$constants->{'constants.' . $_} = $self->{option_results}->{constant}->{$_}; $constants->{'constants.' . $_} = $self->{option_results}->{constant}->{$_};
} }