3 # Reads debian/dirs, creates the directories listed there
5 use Debian::Debhelper::Dh_Lib;
8 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
10 $file=pkgfile($PACKAGE,"dirs");
13 doit("install","-d",$TMP);
19 @dirs=filearray($file)
22 if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
27 # Stick the $TMP onto the front of all the dirs.
28 # This is necessary, for 2 reasons, one to make them
29 # be in the right directory, but more importantly, it
30 # protects against the danger of absolute dirs being
34 tr:/:/:s; # just beautification.
39 doit("install","-d",@dirs);