summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorGraham Barr <gbarr@pobox.com>1998-10-17 15:42:41 -0500
committerGurusamy Sarathy <gsar@cpan.org>1998-10-25 07:14:41 +0000
commit0cf10dd247aed2655c9d5d8ef73ea29ad262eca1 (patch)
tree1d0ca7d6b46c75a15c834849891d16e469555724 /pp_ctl.c
parent51f6edd3989ed41a21787e548e0b66b27028731e (diff)
downloadperl-0cf10dd247aed2655c9d5d8ef73ea29ad262eca1.tar.gz
Re: taint checking for: use lib "$ENV{'EVIL'}"
Message-ID: <19981017204241.G510@pobox.com> p4raw-id: //depot/perl@2071
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index f5b45b33d1..ec53dad97b 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) {