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_installmime | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'dh_installmime')

diff --git a/dh_installmime b/dh_installmime
index 0dbc08b4..59d8c873 100755
--- a/dh_installmime
+++ b/dh_installmime
@@ -2,22 +2,23 @@
 #
 # Mime support.
 
+use strict;
 use Debian::Debhelper::Dh_Lib;
 init();
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-	$TMP=tmpdir($PACKAGE);
-	$mime=pkgfile($PACKAGE,"mime");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+	my $tmp=tmpdir($package);
+	my $mime=pkgfile($package,"mime");
 	
 	if ($mime ne '') {
-		if (! -d "$TMP/usr/lib/mime/packages") {
-			doit("install","-d","$TMP/usr/lib/mime/packages");
+		if (! -d "$tmp/usr/lib/mime/packages") {
+			doit("install","-d","$tmp/usr/lib/mime/packages");
 		}
-		doit("install","-p","-m644",$mime,"$TMP/usr/lib/mime/packages/$PACKAGE");
+		doit("install","-p","-m644",$mime,"$tmp/usr/lib/mime/packages/$package");
 
 		if (! $dh{NOSCRIPTS}) {
-			autoscript($PACKAGE,"postinst","postinst-mime");
-			autoscript($PACKAGE,"postrm","postrm-mime")
+			autoscript($package,"postinst","postinst-mime");
+			autoscript($package,"postrm","postrm-mime")
 		}
 	}
 }
-- 
cgit v1.2.3