foreach my $set (@install) {
my $dest;
+ my $tmpdest=0;
if (! defined $dh{AUTODEST} && @$set > 1) {
$dest=pop @$set;
}
$dest=~s/^(.*\/)?\Q$strip\E//;
$dest=dirname($dest);
+ $tmpdest=1;
}
# Make sure the destination directory exists.
else {
doit("cp", "-a", $src, "$tmp/$dest/");
}
+
+ if ($tmpdest) {
+ $dest=undef;
+ }
}
}
}