print "Symlinking exim-html-current to exim-html-$opt{latest}\n" if ( $opt{verbose} );
unlink("$opt{docroot}/exim-html-current") if ( -l "$opt{docroot}/exim-html-current" );
symlink( "exim-html-$opt{latest}", "$opt{docroot}/exim-html-current" )
- || die "symlink to $opt{docroot}/exim-html-current failed";
+ || warn "symlink to $opt{docroot}/exim-html-current failed";
# ------------------------------------------------------------------
## Generate the website files
## --spec and --filter lists
foreach my $set (qw[spec filter]) {
$opt{$set} =
- [ map { my $f = File::Spec->rel2abs($_); error_help( 1, 'No such file: ' . $_ ) unless -f $f; $f }
+ [ map { my $f = File::Spec->rel2abs($_); error_help( 'No such file: ' . $_ ) unless -f $f; $f }
@{ $opt{$set} } ];
}
## --latest