diff options
Diffstat (limited to 'i18nlangtag/source')
-rwxr-xr-x | i18nlangtag/source/isolang/langid.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/i18nlangtag/source/isolang/langid.pl b/i18nlangtag/source/isolang/langid.pl index dd89a2860911..65333956ab20 100755 --- a/i18nlangtag/source/isolang/langid.pl +++ b/i18nlangtag/source/isolang/langid.pl @@ -85,6 +85,10 @@ sub makeLangID($$) } +# Note that a regex needs a duplicated pair of backslashes to produce a literal +# \\ like in \\\\* to search for zero or more \ backslashes. +# @addregex can be an optional "block to grep" definition +# (regex-to-start-block, regex-to-end-block, regex-to-find-in-block) sub grepFile($$$$$@) { my( $regex, $path, $module, $name, $printmsg, @addregex) = @_; @@ -447,7 +451,7 @@ sub main() grepFile( '^\s*completelangiso\s*=\s*(\s*([a-z]{2,3})(-[A-Z][A-Z])?)*' . $langtag . '', "$SRC_ROOT", "solenv", "inc/langlist.mk", 1, - # needs a duplicated pair of backslashes to produce a literal \\ + # Also grep the list of tags, one per line, \ backslash continued. ('^\s*completelangiso\s*=', '^\s*$', '^\s*' . $langtag . '\s*\\\\*$')); # af 1252 1078 # Afrikaans |