From d3acc0f7e51973106c8c51ff053cffc8bd402843 Mon Sep 17 00:00:00 2001
From: Joshua Pritikin <joshua.pritikin@db.com>
Date: Fri, 26 Jun 1998 05:34:34 -0400
Subject: PUSHSTACK renovation

	Message-Id: <H00000e500081d23@MHS>

p4raw-id: //depot/perl@1254
---
 perl.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index db78b4e3f7..0a675eabcb 100644
--- a/perl.c
+++ b/perl.c
@@ -1434,11 +1434,17 @@ perl_eval_pv(char *p, I32 croak_on_error)
 void
 perl_require_pv(char *pv)
 {
-    SV* sv = sv_newmortal();
+    SV* sv;
+    dSP;
+    PUSHSTACKi(SI_REQUIRE);
+    PUTBACK;
+    sv = sv_newmortal();
     sv_setpv(sv, "require '");
     sv_catpv(sv, pv);
     sv_catpv(sv, "'");
     perl_eval_sv(sv, G_DISCARD);
+    SPAGAIN;
+    POPSTACK;
 }
 
 void
-- 
cgit v1.2.1