r420: big monsta changes

[debhelper.git] / dh_movefiles

diff --git a/dh_movefiles b/dh_movefiles
index e02637330154edb76741f6be06f8c6380132eaca..8eac3878168522a5edeb2e6e51f8d164a8fcc0bb 100755 (executable)
--- a/dh_movefiles
+++ b/dh_movefiles
@@ -2,76 +2,76 @@
 #
 # Move files out of debian/tmp, into subpackages.
 
-BEGIN { push @INC, "debian", "/usr/share/debhelper" }
-use Dh_Lib;
+use strict;
+use Debian::Debhelper::Dh_Lib;
 init();
 
-$ret=0;
+my $ret=0;
 
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
-       $TMP=tmpdir($PACKAGE);
-       $files=pkgfile($PACKAGE,"files");
+foreach my $package (@{$dh{DOPACKAGES}}) {
+       my $tmp=tmpdir($package);
+       my $files=pkgfile($package,"files");
 
+       my $sourcedir="debian/tmp";
        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=();
+       my @tomove;
 
         # debian/files has a different purpose, so ignore it.
-       if ( $files && $files ne "debian/files" ) {
-               @tomove=filearray($files);
+       if ($files && $files ne "debian/files" ) {
+               @tomove=filearray($files, $sourcedir);
        }
        
-       if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+       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 && $tmp eq $sourcedir) {
+               error("I was asked to move files from $sourcedir to $sourcedir. Perhaps you should set DH_COMAPT=2?");
        }
 
-       if (@tomove) {
-               if (! -d $TMP) {
-                       doit("install","-d",$TMP);
-               }
-               # Now we need to expand wildcards in @tomove.
-               @filelist=();
+       # Now we need to expand wildcards in @tomove.
+       # This is only necessary in pre-v3 land -- as of v3, the
+       # expension is automatically done by filearray().
+       if (@tomove && compat(2)) {
+               my @filelist=();
                foreach (@tomove) {
                        push @filelist, glob("$sourcedir/$_");
                }
+               @tomove=@filelist;
+       }
+       else {
+               # However, filearray() does not add the sourcedir,
+               # which we need.
+               @tomove = map { "$sourcedir/$_" } @tomove;
+       }
 
-               # If the globs expended to nothing, we are done.
-               next unless @filelist;
-
-               # 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");
+       if (@tomove) {
+               if (! -d $tmp) {
+                       doit("install","-d",$tmp);
                }
-               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");
+
+               doit("rm","-f","debian/movelist");
+               foreach (@tomove) {
+                       my $file=$_;
+                       if (! -e $file && ! -l $file) {
+                               $ret=1;
+                               warning("$file not found");
+                       }
+                       $file=~s:^\Q$sourcedir\E/+::;
+                       complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -print || true) >> debian/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");
+               complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=../movelist --file -) | (cd $tmp >/dev/null ;tar xpf -)");
+               doit("rm","-f","debian/movelist");
        }
 }