conv-lang.pl: Support N: prefixes when fixing STRINGN codes

This commit is contained in:
Jonathan G Rennison 2023-07-30 23:09:24 +01:00
parent 924b2ab9ec
commit c79dd3656f
1 changed files with 2 additions and 2 deletions

View File

@ -120,8 +120,8 @@ for my $lang (@langs) {
if (/^(\w+)\s*:/) {
my $str = $strs{$1};
if ($str) {
$str =~ s/\{STRING\d\}/{STRING}/g;
$str =~ s/\{RAW_STRING\}/{STRING}/g;
$str =~ s/\{((?:\d:)?)STRING\d\}/{${1}STRING}/g;
$str =~ s/\{((?:\d:)?)RAW_STRING\}/{${1}STRING}/g;
push @lines, $str . "\n";
$suppress_whitespace = 0;
}