marsadm: fix help in the presence of keywords

This commit is contained in:
Thomas Schoebel-Theuer 2020-12-15 11:31:30 +01:00
parent 284b42bc4e
commit 34336089d8

View File

@ -9700,6 +9700,7 @@ marsadm [<global_options>] view[-<macroname>] [<resource_names> | all ]
while (my $txt = shift @copy) {
last if ref($txt) eq "CODE";
next if ref($txt) eq "ARRAY";
next if $txt =~ m/^[A-Z]+$/;
my $skip_this = 0;
if ($txt =~ m/^verbose *([0-9]+)/) {
$verb_level = $1;