X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/odin-cgi/blobdiff_plain/7f77ead8af9c6100f0bf4f259b5be780c4b0d86f..969db1ef94e92c88afaa35b683918b2bf33b87f0:/bin/populate-lang-table

diff --git a/bin/populate-lang-table b/bin/populate-lang-table
index a5b6bee..407a940 100755
--- a/bin/populate-lang-table
+++ b/bin/populate-lang-table
@@ -9,11 +9,11 @@ my %newlang, %oldlang;
 open my $fh, "-|", "highlight", "-p" or die "highlight: $!";
 while (<$fh>) {
   my ($descr, $lang) = /^(.*\S)\s*:\s*(\S+)(?:\s.*|)$/;
-  next unless defined $lang;
-  $newlang{$lang} = $descr;
+  next if !defined $lang or $lang eq "txt";
+  $newlang{"hl:$lang"} = $descr;
 }
 close $fh or die "close highlight: $! $?";
-$newlang{"txt"} //= "Plain text";
+$newlang{"txt"} = "Plain text";
 
 Odin::xact {
   my $h = $db->selectall_hashref