release LPART ...
reserve [-GENOPTS] N
reserved
- set [-RECOPTS] LPART
+ set [-RECOPTS] LPART ...
GENOPTS ::= [-g GENERATOR] [-p PARAM=VALUE]
RECOPTS ::= [-c COMMENT] [-r RECIP] [-x EXPIRES]
or $op->unk;
}
my @a = $op->rest;
- my $l = shift @a or $op->bad;
- @a and $op->bad;
- $op->ok or Odin::fail "usage: set [-RECOPTS] LPART";
- Odin::modify_redir $dom, $l, %r;
+ @a or $op->bad;
+ $op->ok or Odin::fail "usage: set [-RECOPTS] LPART ...";
+ Odin::modify_redir $dom, %r, @a;
} else {
Odin::fail "unknown operation `$op'";
}