From ed3d818b3755ec078027986b2ae0039076543df1 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Mon, 1 May 2000 06:55:13 +0000
Subject: [PATCH] r346: some perl 5.6 issues

---
 dh_perl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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;
-- 
2.39.5