From: joey <joey>
Date: Mon, 1 May 2000 06:55:13 +0000 (+0000)
Subject: r346: some perl 5.6 issues
X-Git-Tag: version_2.0.101~253
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ed3d818b3755ec078027986b2ae0039076543df1;p=debhelper.git

r346: some perl 5.6 issues
---

diff --git a/dh_perl b/dh_perl
index dc614e4..1220e08 100755
--- a/dh_perl
+++ b/dh_perl
@@ -91,14 +91,14 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 
 	next unless $dep;
 
-	if (-e "debian/$EXT\substvars") {
-		open (IN, "<debian/$EXT\substvars");
+	if (-e "debian/${EXT}substvars") {
+		open (IN, "<debian/${EXT}substvars");
 		my @lines=grep { ! /^perl:Depends=/ } <IN>;
 		close IN;
-		open (OUT, ">debian/$EXT\substvars");
+		open (OUT, ">debian/${EXT}substvars");
 		print OUT @lines;
 	} else {
-		open (OUT, ">debian/$EXT\substvars");
+		open (OUT, ">debian/${EXT}substvars");
 	}
 	print OUT "perl:Depends=$dep\n";
 	close OUT;