From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 12 Dec 1997 16:20:38 +0000 (+0000)
Subject: pp_print and pp_prtf handling of tied file handles used EXTEND
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4352c2672c688f561f692cdbaf9109f32e58a795;p=p5sagit%2Fp5-mst-13.2.git

pp_print and pp_prtf handling of tied file handles used EXTEND
instead of MEXTEND leading to core dumps. This fix needs
propagating back to the maintenance branch.

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

diff --git a/pp_hot.c b/pp_hot.c
index 5dc72ea..f4a6948 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -297,7 +297,7 @@ PP(pp_print)
 	gv = defoutgv;
     if (SvMAGICAL(gv) && (mg = mg_find((SV*)gv, 'q'))) {
 	if (MARK == ORIGMARK) {
-	    EXTEND(SP, 1);
+	    MEXTEND(SP, 1);
 	    ++MARK;
 	    Move(MARK, MARK + 1, (SP - MARK) + 1, SV*);
 	    ++SP;
diff --git a/pp_sys.c b/pp_sys.c
index 9dc6201..42e8a9c 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1147,7 +1147,7 @@ PP(pp_prtf)
 
     if (SvMAGICAL(gv) && (mg = mg_find((SV*)gv, 'q'))) {
 	if (MARK == ORIGMARK) {
-	    EXTEND(SP, 1);
+	    MEXTEND(SP, 1);
 	    ++MARK;
 	    Move(MARK, MARK + 1, (SP - MARK) + 1, SV*);
 	    ++SP;