r420: big monsta changes

[debhelper.git] / dh_installmime

diff --git a/dh_installmime b/dh_installmime
index 0dbc08b41923d44a30b1cf06d465f1102d8e599c..59d8c87310174ffff98a37b45b0dd74c5653402d 100755 (executable)
--- 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")
                }
        }
 }