From 7c5eeab893ba2ddfad2aae12c9a2bdff98b05ab8 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 15 Aug 2006 09:25:07 +0000
Subject: [PATCH] (StrangeNewBannedContent): Protect $1.

---
 modules/strange-spam.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/modules/strange-spam.pl b/modules/strange-spam.pl
index 0eb8da5a..6ee3e0cf 100644
--- a/modules/strange-spam.pl
+++ b/modules/strange-spam.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: strange-spam.pl,v 1.8 2006/08/15 09:23:16 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: strange-spam.pl,v 1.9 2006/08/15 09:25:07 as Exp $</p>';
 
 use vars qw($StrangeBannedContent);
 
@@ -48,7 +48,8 @@ sub StrangeNewBannedContent {
     my $regexp = $_;
     next unless $regexp; # skip empty strings
     if ($str =~ /($regexp)/i) {
-      return Tss('Rule "%1" matched "%2" on this page.', QuoteHtml($regexp), $1);
+      my $match = $1;
+      return Tss('Rule "%1" matched "%2" on this page.', QuoteHtml($regexp), $match);
     }
   }
   return 0;