diff options
Diffstat (limited to 'dh_installdirs')
| -rwxr-xr-x | dh_installdirs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/dh_installdirs b/dh_installdirs index 1ecf907e..340c966e 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; |