Re: [PATCH] Splitting OP_CONST (Was: pp_const, not, that, hot?)

Message-ID: <47B60D72.50708@profvince.com>
Date: Fri, 15 Feb 2008 23:08:50 +0100

p4raw-id: //depot/perl@33356

1 files changed, 13 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 1dcca0bd2f..0b4da4dfef 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3610,6 +3610,19 @@ PP(pp_require)
     return op;
 }
 
+/* This is a op added to hold the hints hash for
+   pp_entereval. The hash can be modified by the code
+   being eval'ed, so we return a copy instead. */
+
+PP(pp_hintseval)
+{
+    dVAR;
+    dSP;
+    mXPUSHs((SV*)Perl_hv_copy_hints_hv(aTHX_ (HV*)cSVOP_sv));
+    RETURN;
+}
+
+
 PP(pp_entereval)
 {
     dVAR; dSP;