Mailing List Archive

Author: dos
Date: Wed Aug 23 00:16:43 2006
New Revision: 433959

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

Modified:
spamassassin/trunk/sa-update.raw

Modified: spamassassin/trunk/sa-update.raw
URL: http://svn.apache.org/viewvc/spamassassin/trunk/sa-update.raw?rev=433959&r1=433958&r2=433959&view=diff
==============================================================================
--- spamassassin/trunk/sa-update.raw (original)
+++ spamassassin/trunk/sa-update.raw Wed Aug 23 00:16:43 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;
}