r420: big monsta changes

[debhelper.git] / dh_installwm

diff --git a/dh_installwm b/dh_installwm
index 9a970feb308c705fe2139b551d29c46b9dea8395..8bbee699a02317aa9c23e280beb8f9b9d0b5466a 100755 (executable)
--- a/dh_installwm
+++ b/dh_installwm
@@ -2,6 +2,7 @@
 #
 # Add to postinst and prerm to register a window manager.
 
+use strict;
 use Debian::Debhelper::Dh_Lib;
 init();
 
@@ -17,22 +18,23 @@ if (@ARGV) {
        }
 }
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-#      $TMP=tmpdir($PACKAGE);
-       $file=pkgfile($PACKAGE,"wm");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+#      my $tmp=tmpdir($package);
+       my $file=pkgfile($package,"wm");
 
+       my @wm;
        if ($file) {
                @wm=filearray($file, '.');
        }
 
-       if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+       if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
                push @wm, @ARGV;
        }
 
        if (@wm && ! $dh{NOSCRIPTS}) {
                foreach (@wm) {
-                       autoscript($PACKAGE,"postinst","postinst-wm","s:#WM#:$_:;s/#PRIORITY#/$dh{PRIORITY}/",);
-                       autoscript($PACKAGE,"prerm","prerm-wm","s:#WM#:$_:");
+                       autoscript($package,"postinst","postinst-wm","s:#WM#:$_:;s/#PRIORITY#/$dh{PRIORITY}/",);
+                       autoscript($package,"prerm","prerm-wm","s:#WM#:$_:");
                }
        }
 }