- 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;