sub compat {
my $num=shift;
+ my $nowarn=shift;
if (! defined $c) {
$c=1;
}
}
- if ($c <= 4 && ! $warned_compat) {
+ if ($c <= 4 && ! $warned_compat && ! $nowarn) {
warning("Compatibility levels before 5 are deprecated.");
$warned_compat=1;
}
* dh_fixperms: Operate on .ali files throughout /usr/lib, including
multiarch dirs. Closes: #641279
+ * dh: Avoid compat deprecation warning before option parsing.
+ Closes: #641361
-- Joey Hess <joeyh@debian.org> Mon, 12 Sep 2011 13:35:52 -0400
# Stash this away before init modifies it.
my @ARGV_orig=@ARGV;
-if (compat(8)) {
+if (compat(8, 1)) {
# python-support was enabled by default before v9.
# (and comes first so python-central loads later and can disable it).
unshift @ARGV, "--with=python-support";