=head1 SYNOPSIS
- dh_movefiles [debhelper options] [--sourcedir=dir] [file ...]
+B<dh_movefiles> [S<I<debhelper options>>] [B<--sourcedir=>I<dir>] [B<-X>I<item>] S<I<file ...>>]
=head1 DESCRIPTION
prefer, you can list the files to move on the command line and this will
apply to the first package dh_movefiles is told to act on.
+Note: dh_install is a much better program that can do everything this one can,
+and more.
+
=head1 OPTIONS
=over 4
unsafe, so to prevent mistakes, the sourcedir must be a relative filename;
it cannot begin with a `/'.
+=item B<-Xitem>, B<--exclude=item>
+
+Exclude files that contain "item" anywhere in their filename from
+being installed.
+
=item I<file ...>
Lists files to move. The filenames listed should be relative to
}
if (@tomove && $tmp eq $sourcedir) {
- error("I was asked to move files from $sourcedir to $sourcedir. Perhaps you should set DH_COMAPT=2?");
+ error("I was asked to move files from $sourcedir to $sourcedir. Perhaps you should set DH_COMPAT=2?");
}
# Now we need to expand wildcards in @tomove.
doit("rm","-f","debian/movelist");
foreach (@tomove) {
my $file=$_;
- if (! -e $file && ! -l $file) {
+ if (! -e $file && ! -l $file && ! $dh{NO_ACT}) {
$ret=1;
- warning("$file not found");
+ warning("$file not found (supposed to put it in $package)");
}
$file=~s:^\Q$sourcedir\E/+::;
- complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -print || true) >> debian/movelist");
+ my $cmd="(cd $sourcedir >/dev/null ; find $file ! -type d ";
+ if ($dh{EXCLUDE_FIND}) {
+ $cmd.="-a ! \\( $dh{EXCLUDE_FIND} \\) ";
+ }
+ $cmd.="-print || true) >> debian/movelist";
+ complex_doit($cmd);
}
- complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=../movelist --file -) | (cd $tmp >/dev/null ;tar xpf -)");
+ my $pwd=`pwd`;
+ chomp $pwd;
+ complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=$pwd/debian/movelist --file -) | (cd $tmp >/dev/null ;tar xpf -)");
doit("rm","-f","debian/movelist");
}
}