You are viewing a plain text version of this content. The canonical link for it is here.

Posted to commits@spamassassin.apache.org by do...@apache.org on 2006/08/23 09:16:22 UTC

svn commit: r433958 - /spamassassin/branches/3.1/sa-update.raw

Author: dos
Date: Wed Aug 23 00:16:22 2006
New Revision: 433958

URL: http://svn.apache.org/viewvc?rev=433958&view=rev
Log:
bug 5061: avoid Perl random taint flagging of $1 bug

Modified:
    spamassassin/branches/3.1/sa-update.raw

Modified: spamassassin/branches/3.1/sa-update.raw
URL: http://svn.apache.org/viewvc/spamassassin/branches/3.1/sa-update.raw?rev=433958&r1=433957&r2=433958&view=diff
==============================================================================
--- spamassassin/branches/3.1/sa-update.raw (original)
+++ spamassassin/branches/3.1/sa-update.raw Wed Aug 23 00:16:22 2006
@@ -351,6 +351,7 @@
 
 # untaint the channel listing
 for(my $ind = 0; $ind < @channels; $ind++) {
+  local ($1); # bug 5061: prevent random taint flagging of $1
   if ($channels[$ind] =~ /^([a-zA-Z0-9._-]+)$/) {
     $channels[$ind] = $1;
   }