r346: some perl 5.6 issues

diff --git a/dh_perl b/dh_perl
index dc614e45877e1307fb9dd07cd2591f746266933a..1220e083f616a940b68a98a096b98edb417a8eef 100755 (executable)
--- 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;