("SELECT lang FROM odin_pastebin_lang WHERE lang = ?", undef, $p{lang})}
or Odin::fail "unknown language `$p{lang}'";
my ($tag, $edit) = Odin::new_pastebin %p;
- print "$Odin::PASTEBIN/$url $edit\n";
+ print "$Odin::PASTEBIN/$tag $edit\n";
} elsif ($op eq "get") {
@ARGV == 1 or Odin::fail "usage: get TAG";
my ($tag) = @ARGV;