diff options
Diffstat (limited to 'scripts/Dpkg')
-rw-r--r-- | scripts/Dpkg/Substvars.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm index 229a41518..0c2ce5373 100644 --- a/scripts/Dpkg/Substvars.pm +++ b/scripts/Dpkg/Substvars.pm @@ -18,7 +18,7 @@ package Dpkg::Substvars; use strict; use warnings; -our $VERSION = "1.00"; +our $VERSION = "1.01"; use Dpkg qw($version); use Dpkg::Arch qw(get_host_arch); @@ -94,6 +94,19 @@ sub set { $self->{'vars'}{$key} = $value; } +=item $s->set_as_used($key, $value) + +Add/replace a substitution and mark it as used (no warnings will be produced +even if unused). + +=cut + +sub set_as_used { + my ($self, $key, $value) = @_; + $self->set($key, $value); + $self->no_warn($key); +} + =item $s->get($key) Get the value of a given substitution. |