else { $op->unk; }
}
@ARGV = $op->rest;
- $op->bad if @ARGV;
- $op->ok or Odin::fail "usage: new [-l LANG] [-t TITLE]";
+ $op->bad if @ARGV != 1;
+ $op->ok or Odin::fail "usage: update [-c] [-l LANG] [-t TITLE] TAG";
+ my $tag = shift @ARGV;
$p{content} = read_content if $contentp;
Odin::update_pastebin $tag, undef, %p or Odin::fail "nothing changed";
} else {