3 # Reads debian/dirs, creates the directories listed there
5 BEGIN { push @INC, "debian", "/usr/share/debhelper" }
9 foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
10 $TMP=tmpdir($PACKAGE);
11 $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);