]> git.ipfire.org Git - thirdparty/gettext.git/commit
xgettext: Perl: Avoid unnecessary nesting_depth growth.
authorBruno Haible <bruno@clisp.org>
Mon, 18 Sep 2023 18:58:32 +0000 (20:58 +0200)
committerBruno Haible <bruno@clisp.org>
Tue, 19 Sep 2023 02:11:37 +0000 (04:11 +0200)
commite3eba6012b4042b661e41bf8edbe62bea7fc4206
tree69be6c35a1b37dc922b37077034ddc8bb5c6d4cc
parent1cc9b49ab946fed8afb19bfd76527af154d6ffb1
xgettext: Perl: Avoid unnecessary nesting_depth growth.

* gettext-tools/src/x-perl.c: Ensure the top-level extract_balanced call returns
when a closing paren or bracket is seen.
(token_type_r_any): New enum item.
(prefer_regexp_over_division, extract_balanced): Handle it.
(extract_perl): Pass token_type_r_any instead of token_type_rbrace.
gettext-tools/src/x-perl.c