summaryrefslogtreecommitdiff
path: root/dh_movefiles
diff options
context:
space:
mode:
Diffstat (limited to 'dh_movefiles')
-rwxr-xr-xdh_movefiles82
1 files changed, 0 insertions, 82 deletions
diff --git a/dh_movefiles b/dh_movefiles
deleted file mode 100755
index 7978163e..00000000
--- a/dh_movefiles
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Move files out of debian/tmp, into subpackages.
-
-BEGIN { push @INC, "debian", "/usr/share/debhelper" }
-use Dh_Lib;
-init();
-
-$ret=0;
-
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $files=pkgfile($PACKAGE,"files");
-
- if ($dh{SOURCEDIR}) {
- if ($dh{SOURCEDIR}=~m:^/:) {
- error("The sourcedir must be a relative filename, not starting with `/'.");
- }
- $sourcedir=$dh{SOURCEDIR};
- }
- else {
- $sourcedir="debian/tmp";
- }
-
- if (! -d $sourcedir) {
- error("$sourcedir does not exist.");
- }
-
- @tomove=();
-
- # debian/files has a different purpose, so ignore it.
- if ( $files && $files ne "debian/files" ) {
- @tomove=filearray($files);
- }
-
- if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
- push @tomove, @ARGV;
- }
-
- if (@tomove && $TMP eq $sourcedir) {
- error("I was asked to move files from $sourcedir to $sourcedir.");
- }
-
- if (@tomove) {
- if (! -d $TMP) {
- doit("install","-d",$TMP);
- }
- # Now we need to expand wildcards in @tomove.
- @filelist=();
- foreach (@tomove) {
- push @filelist, glob("$sourcedir/$_");
- }
-
- # Order the files. First all real files, then symlinks.
- # Putting symlinks last is a nice thing to do for library
- # packages and doesn't affect much of anything else.
- doit("rm","-f","movelist");
- foreach (@filelist) {
- $file=$_;
- $ret=1 if (! -e $file && ! -l $file);
- $file=~s:^$sourcedir/+::;
- complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -and ! -type l -print || true) >> movelist");
- }
- foreach (@filelist) {
- $file=$_;
- $ret=1 if (! -e $file && ! -l $file);
- $file=~s:^$sourcedir/+::;
- complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -and -type l -print || true) >> movelist");
- }
- complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=../../movelist --file -) | (cd $TMP >/dev/null ;tar xpf -)");
- doit("rm","-f","movelist");
- }
-}
-
-# If $ret is set, we wern't actually able to find some
-# files that were specified to be moved, and we should
-# exit with the code in $ret. This program puts off
-# exiting with an error until all files have been tried
-# to be moved, because this makes it easier for some
-# packages that arn't always sure exactly which files need
-# to be moved.
-exit $ret;