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.
