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 (file)
--- 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) {