svn commit: r1933272 - spamassassin/trunk/lib/Mail/SpamAssassin/Conf

Author: gbechis
Date: Thu Apr 23 16:23:39 2026
New Revision: 1933272

Log:
log all occurrences of captured tags
bz #8392

Modified:
   spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm	Thu Apr 23 16:08:21 2026	(r1933271)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm	Thu Apr 23 16:23:39 2026	(r1933272)
@@ -1528,7 +1528,7 @@ sub parse_captures {
     local($1);
     my $template = $$re;  # save original before %{FOO} -> %\{FOO\} escaping
     # Replace %{FOO} with %\{FOO\} so compile_regexp doesn't fail with unescaped left brace
-    while ($$re =~ s/(?<!\\)\%\{([A-Z][A-Z0-9]*(?:_[A-Z0-9]+)*(?:\([^\)\}]*\))?)\}/%\\{$1\\}/g) {
+    while ($$re =~ s/(?<!\\)\%\{([A-Z][A-Z0-9]*(?:_[A-Z0-9]+)*(?:\([^\)\}]*\))?)\}/%\\{$1\\}/) {
       dbg("config: found named capture for rule $name: $1");
       $self->{conf}->{capture_template_rules}->{$name}->{$1} = 1;
     }