r346: some perl 5.6 issues

1 files changed, 4 insertions, 4 deletions

diff --git a/dh_perl b/dh_perl
index dc614e45..1220e083 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;