- $file=~s:^\Q$sourcedir\E/+::;
- my $cmd="(cd $sourcedir >/dev/null ; find $file ! -type d ";
- if ($dh{EXCLUDE_FIND}) {
- $cmd.="-a ! \\( $dh{EXCLUDE_FIND} \\) ";
+ else {
+ $file=~s:^\Q$sourcedir\E/+::;
+ 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);