summaryrefslogtreecommitdiff
path: root/dh_installdirs
diff options
context:
space:
mode:
authorjoey <joey>2001-02-09 00:57:53 +0000
committerjoey <joey>2001-02-09 00:57:53 +0000
commit053f6f8b4e7431d32511aef209188a084e8c7e79 (patch)
tree209a51c8c8fdbcce25c834198f1b3ef705dcb5b0 /dh_installdirs
parentae0346306694bb2c52193f6352755c223e6e8935 (diff)
r420: big monsta changes
Diffstat (limited to 'dh_installdirs')
-rwxr-xr-xdh_installdirs19
1 files changed, 10 insertions, 9 deletions
diff --git a/dh_installdirs b/dh_installdirs
index 1ecf907..340c966 100755
--- a/dh_installdirs
+++ b/dh_installdirs
@@ -2,35 +2,36 @@
#
# Reads debian/dirs, creates the directories listed there
+use strict;
use Debian::Debhelper::Dh_Lib;
init();
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $file=pkgfile($PACKAGE,"dirs");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+ my $tmp=tmpdir($package);
+ my $file=pkgfile($package,"dirs");
- if (! -e $TMP) {
- doit("install","-d",$TMP);
+ if (! -e $tmp) {
+ doit("install","-d",$tmp);
}
- undef @dirs;
+ my @dirs;
if ($file) {
@dirs=filearray($file)
}
- if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+ if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
push @dirs, @ARGV;
}
if (@dirs) {
- # Stick the $TMP onto the front of all the dirs.
+ # Stick the $tmp onto the front of all the dirs.
# This is necessary, for 2 reasons, one to make them
# be in the right directory, but more importantly, it
# protects against the danger of absolute dirs being
# specified.
@dirs=map {
- $_="$TMP/$_";
+ $_="$tmp/$_";
tr:/:/:s; # just beautification.
$_
} @dirs;