3 # Reads debian/dirs, creates the directories listed there
6 use Debian::Debhelper::Dh_Lib;
9 foreach my $package (@{$dh{DOPACKAGES}}) {
10 my $tmp=tmpdir($package);
11 my $file=pkgfile($package,"dirs");
14 doit("install","-d",$tmp);
20 @dirs=filearray($file)
23 if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
28 # Stick the $tmp onto the front of all the dirs.
29 # This is necessary, for 2 reasons, one to make them
30 # be in the right directory, but more importantly, it
31 # protects against the danger of absolute dirs being
35 tr:/:/:s; # just beautification.
40 doit("install","-d",@dirs);