From 08fd6e5a07b96c2d7792a66458408916b754c97a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 12 Sep 2011 18:52:42 -0400
Subject: dh: Avoid compat deprecation warning before option parsing. Closes:
 #641361

---
 Debian/Debhelper/Dh_Lib.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Debian/Debhelper')

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index e28cb326..60f13c30 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -328,6 +328,7 @@ sub dirname {
 
 	sub compat {
 		my $num=shift;
+		my $nowarn=shift;
 	
 		if (! defined $c) {
 			$c=1;
@@ -349,7 +350,7 @@ sub dirname {
 			}
 		}
 
-		if ($c <= 4 && ! $warned_compat) {
+		if ($c <= 4 && ! $warned_compat && ! $nowarn) {
 			warning("Compatibility levels before 5 are deprecated.");
 			$warned_compat=1;
 		}
-- 
cgit v1.2.3