From: Graham Barr <gbarr@pobox.com>
Date: Sat, 17 Oct 1998 20:42:41 +0000 (-0500)
Subject: Re: taint checking for: use lib "$ENV{'EVIL'}"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0cf10dd247aed2655c9d5d8ef73ea29ad262eca1;p=p5sagit%2Fp5-mst-13.2.git

Re: taint checking for: use lib "$ENV{'EVIL'}"

	Message-ID: <19981017204241.G510@pobox.com>

p4raw-id: //depot/perl@2071
---

diff --git a/pp_ctl.c b/pp_ctl.c
index f5b45b3..ec53dad 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2651,6 +2651,7 @@ PP(pp_require)
 #else
 		sv_setpvf(namesv, "%s/%s", dir, name);
 #endif
+		TAINT_PROPER("require");
 		tryname = SvPVX(namesv);
 		tryrsfp = PerlIO_open(tryname, PERL_SCRIPT_MODE);
 		if (tryrsfp) {