print {$lf} "### auto-generated by install/translate - DO NOT EDIT! ###\n\n";
local $/;
$_ = <$fexpp>;
- s/.*\n(\#\#\# locale functions)/$1/s;
+ s/.*\n(\#\#\#* locale functions)/$1/s;
s/\nsub (\w+)/\n\$$1\{$lang\} = sub/gs;
s/\n\}\n/\n\};\n/gs;
print {$lf} $_;