diff options
Diffstat (limited to 'tools/split-messages.pl')
-rw-r--r-- | tools/split-messages.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/split-messages.pl b/tools/split-messages.pl index 0504b24c1..1c78fd271 100644 --- a/tools/split-messages.pl +++ b/tools/split-messages.pl @@ -85,7 +85,7 @@ sub main () } # double check the options are sane (and we weren't asked for the help) - if( !$opt_ok || $opt{help} || $opt{lang} !~ /^[a-z]{2}$/ || $opt{dlang} !~ /^[a-z]{2}$/ ) + if( !$opt_ok || $opt{help} || $opt{lang} !~ /^[a-z]{2}(?:_[A-Z]{2})?$/ || $opt{dlang} !~ /^[a-z]{2}(?:_[A-Z]{2})?$/ ) { usage(); } @@ -109,7 +109,7 @@ sub main () /^\s*$/ && next; # only parsing things that look like message lines: - if( /^([a-z]{2}).([^.]+).([^:]+):(.*)/ ) + if( /^([a-z]{2}(?:_[A-Z]{2})?).([^.]+).([^:]+):(.*)/ ) { my( $lang, $plat, $key, $val ) = ( $1, $2, $3, $4 ); |