marsadm: new lskip

This commit is contained in:
Thomas Schoebel-Theuer 2020-07-27 21:12:18 +02:00
parent 911f7cb83d
commit 950e0ca258

View File

@ -88,6 +88,15 @@ sub lprint_stderr {
llog($text);
}
sub lskip {
my ($res, $text) = @_;
# Already set %skip_res here, so it doesn't count as error
$skip_res{$res} = 1;
lprint_stderr "SKIPPING: $text";
# trigger an exception
die "\n";
}
sub ldie {
my ($text) = @_;
if ($verbose > 2) {