]> 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>
Mon, 18 Sep 2023 18:58:32 +0000 (20:58 +0200)
commitb9975c155723f199c757ca2f979916afe94f27aa
treeaccb74a7adcb38dfcf2fb186c7aaf236eeccd518
parent93d9a3ccc90ff1f5504754c2c6d701dd009a6c80
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