for my $lang (keys %newlang) {
if (!exists $oldlang{$lang}) {
print ";; insert new language `$lang' (`$newlang{$lang}')\n";
- $db->do("INSERT INTO odin_pastebin_lang (lang) VALUES (?)",
- undef, $lang);
+ $db->do("INSERT INTO odin_pastebin_lang (lang, descr) VALUES (?, ?)",
+ undef, $lang, $newlang{$lang});
} elsif ($oldlang{$lang} ne $newlang{$lang}) {
print ";; change description for `$lang' ",
"(`$oldlang{$lang}' -> `$newlang{$lang}')\n";