diff options
Diffstat (limited to 'dh_installdirs')
-rwxr-xr-x | dh_installdirs | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/dh_installdirs b/dh_installdirs new file mode 100755 index 00000000..fe5683d6 --- /dev/null +++ b/dh_installdirs @@ -0,0 +1,98 @@ +#!/usr/bin/perl -w + +=head1 NAME + +dh_installdirs - create subdirectories in package build directories + +=cut + +use strict; +use Debian::Debhelper::Dh_Lib; + +=head1 SYNOPSIS + +B<dh_installdirs> [S<I<debhelper options>>] [B<-A>] [S<I<dir> ...>] + +=head1 DESCRIPTION + +B<dh_installdirs> is a debhelper program that is responsible for creating +subdirectories in package build directories. + +=head1 FILES + +=over 4 + +=item debian/I<package>.dirs + +Lists directories to be created in I<package>. + +=back + +=head1 OPTIONS + +=over 4 + +=item B<-A>, B<--all> + +Create any directories specified by command line parameters in ALL packages +acted on, not just the first. + +=item I<dir> ... + +Create these directories in the package build directory of the first +package acted on. (Or in all packages if B<-A> is specified.) + +=back + +=cut + +init(); + +# PROMISE: DH NOOP WITHOUT dirs + +foreach my $package (@{$dh{DOPACKAGES}}) { + my $tmp=tmpdir($package); + my $file=pkgfile($package,"dirs"); + + if (! -e $tmp) { + doit("install","-d",$tmp); + } + + my @dirs; + + if ($file) { + @dirs=filearray($file) + } + + if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) { + push @dirs, @ARGV; + } + + if (@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/$_"; + tr:/:/:s; # just beautification. + $_ + } @dirs; + + # Create dirs. + doit("install","-d",@dirs); + } +} + +=head1 SEE ALSO + +L<debhelper(7)> + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess <joeyh@debian.org> + +=cut |