Mailing List Archive

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;
}