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 (file)
--- 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 (file)
--- 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;