diff options
Diffstat (limited to 'scripts/Dpkg')
| -rw-r--r-- | scripts/Dpkg/Control/Hash.pm | 3 | ||||
| -rw-r--r-- | scripts/Dpkg/Substvars.pm | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/scripts/Dpkg/Control/Hash.pm b/scripts/Dpkg/Control/Hash.pm index 5ab28c1d5..fabcf68de 100644 --- a/scripts/Dpkg/Control/Hash.pm +++ b/scripts/Dpkg/Control/Hash.pm @@ -355,8 +355,7 @@ sub apply_substvars { # Add substvars to refer to other fields foreach my $f (keys %$self) { - $substvars->set("F:$f", $self->{$f}); - $substvars->no_warn("F:$f"); + $substvars->set_as_used("F:$f", $self->{$f}); } foreach my $f (keys %$self) { diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm index 0c2ce5373..be2658013 100644 --- a/scripts/Dpkg/Substvars.pm +++ b/scripts/Dpkg/Substvars.pm @@ -201,8 +201,7 @@ This will never be warned about when unused. sub set_arch_substvars { my ($self) = @_; - $self->{'vars'}{'Arch'} = get_host_arch(); - $self->no_warn('Arch'); + $self->set_as_used('Arch', get_host_arch()); } =item $newstring = $s->substvars($string) |