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

2 files changed, 2 insertions, 2 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 5dc72eaf36..f4a69480b1 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 9dc62018df..42e8a9c19a 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;