Change 18261 by rgs@rgs-home on 2002/12/08 20:17:37 Change the set of characters that are considered to be safe in $ENV{TERM} for taint checkings.
Affected files ... .... //depot/perl/taint.c#31 edit Differences ... ==== //depot/perl/taint.c#31 (text) ==== Index: perl/taint.c --- perl/taint.c#30~15155~ Sun Mar 10 19:09:16 2002 +++ perl/taint.c Sun Dec 8 12:17:37 2002 @@ -129,7 +129,7 @@ PL_tainted = was_tainted; if (t < e && isALNUM(*t)) t++; - while (t < e && (isALNUM(*t) || *t == '-' || *t == ':')) + while (t < e && (isALNUM(*t) || strchr("-_.+", *t))) t++; if (t < e) { TAINT; End of Patch.