r348: * Fixes for perl 5.6.

[debhelper.git] / dh_clean

diff --git a/dh_clean b/dh_clean
index 1f73bea732aedb8f7c381d0e042ee9f1d40bfccc..1ca1012510cba863df9a989ea56f74d35b870f11 100755 (executable)
--- a/dh_clean
+++ b/dh_clean
@@ -11,11 +11,11 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
        $EXT=pkgext($PACKAGE);
 
        if (! $dh{D_FLAG}) {
-               doit("rm","-f","debian/$EXT\substvars",
-                       "debian/$EXT\postinst.debhelper",
-                       "debian/$EXT\postrm.debhelper",
-                       "debian/$EXT\preinst.debhelper",
-                       "debian/$EXT\prerm.debhelper");
+               doit("rm","-f","debian/${EXT}substvars",
+                       "debian/${EXT}postinst.debhelper",
+                       "debian/${EXT}postrm.debhelper",
+                       "debian/${EXT}preinst.debhelper",
+                       "debian/${EXT}prerm.debhelper");
        }
        
        doit ("rm","-rf",$TMP);