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.