The following commit has been merged in the master branch:
commit bfc61827201aadb05bdff25e259490a02c5319e5
Author: Guillem Jover <guil...@debian.org>
Date: Mon May 21 03:53:21 2012 +0200
Dpkg::Substvars: Add new member function set_as_used()
This sets a subtsvar and marks it as used, so no warnings are produced
even if the variable is never used.
diff --git a/debian/changelog b/debian/changelog
index 2771f22..2bb057a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -31,6 +31,7 @@ dpkg (1.16.4) UNRELEASED; urgency=low
* Do not obscure Dpkg::Source::Package ‘require’ errors with custom
error message. Thanks to Thomas Adam <thomas.a...@smoothwall.net> and
Jonathan Nieder <jrnie...@gmail.com>.
+ * Add new Dpkg::Substvars::set_as_used() member function.
[ Updated man page translations ]
* German (Helge Kreutzmann).
diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm
index 229a415..0c2ce53 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.
--
dpkg's main repository
--
To UNSUBSCRIBE, email to debian-dpkg-cvs-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
