sub usage() {
print <<AMEN ;
-Usage: bex add [<options>] [!]<machine-or-class> ...
+Usage: bex add [<options>] [!]<machine-or-group> ...
Options:
-a, --attach=<path> Attach a file or directory to the job
$? and die "Cannot delete old attachment $adest\n";
$msg = "Updated attachment";
}
- system "/bin/cp", "-a", $asrc, $adest;
+ system "/bin/cp", "-aL", $asrc, $adest;
$? and die "Cannot copy attachment $asrc to $adest\n";
if (-d $asrc) {
print "$msg $base/...\n";