From cd60c0e8540451d92caf940eca9c2f4e2b3807f9 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Sun, 19 May 2002 05:07:29 +0000
Subject: r523:    * Removing perl warning message.

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

(limited to 'Debian')

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index 0f910f1d..b14afd1e 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -54,8 +54,8 @@ sub init {
 		foreach (@{$dh{EXCLUDE}}) {
 			$dh{EXCLUDE_FIND}.="-regex ".escape_shell(".*$_.*")." -or ";
 		}
+		$dh{EXCLUDE_FIND}=~s/ -or $//;
 	}
-	$dh{EXCLUDE_FIND}=~s/ -or $//;
 	
 	# Check to see if DH_VERBOSE environment variable was set, if so,
 	# make sure verbose is on.
-- 
cgit v1.2.3