From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 14 Mar 2007 12:34:05 +0000 (+0000)
Subject: use a fresh stack when loading Errno.pm etc.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cac5437927d43225e7f3691060e4b68064403bfc;p=p5sagit%2Fp5-mst-13.2.git

use a fresh stack when loading Errno.pm etc.
Stops 'use vars qw($!)' in lib/vars.t segfaulting.
(This can be reduced to 'my $sym = "!"; *$sym = \$$sym')

p4raw-id: //depot/perl@30577
---

diff --git a/gv.c b/gv.c
index 6c664db..26308bb 100644
--- a/gv.c
+++ b/gv.c
@@ -697,11 +697,12 @@ S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methp
 				  so save it. For the moment it's always
 				  a single char. */
 	dSP;
-	PUTBACK;
 	ENTER;
 	if ( flags & 1 )
 	    save_scalar(gv);
+	PUSHSTACKi(PERLSI_MAGIC);
 	Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, module, NULL);
+	POPSTACK;
 	LEAVE;
 	SPAGAIN;
 	stash = gv_stashsv(namesv, 0);