summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorRick Delaney <rick@consumercontact.com>2007-02-08 03:21:37 -0500
committerNicholas Clark <nick@ccl4.org>2007-02-08 13:46:31 +0000
commitaf2d3def2986270f42f078b69e472ae1ef189ba3 (patch)
tree8027a11dd4262e98d3a3d7021813916a9deeb9c7 /pp_ctl.c
parentaad86e2b1854e6cf9b1f3c702c4d5801c1a9f58a (diff)
downloadperl-af2d3def2986270f42f078b69e472ae1ef189ba3.tar.gz
Re: Change 29193 is a regression
Message-ID: <20070208132137.GA24202@bort.ca> p4raw-id: //depot/perl@30171
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 2edbdd0d95..ca19ebde9d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3444,6 +3444,7 @@ PP(pp_entereval)
}
sv = POPs;
+ TAINT_IF(SvTAINTED(sv));
TAINT_PROPER("eval");
ENTER;