From 053f6f8b4e7431d32511aef209188a084e8c7e79 Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Fri, 9 Feb 2001 00:57:53 +0000
Subject: r420: big monsta changes

---
 dh_installwm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'dh_installwm')

diff --git a/dh_installwm b/dh_installwm
index 9a970fe..8bbee69 100755
--- 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#:$_:");
 		}
 	}
 }
-- 
cgit v1.2.1