From 4352c2672c688f561f692cdbaf9109f32e58a795 Mon Sep 17 00:00:00 2001 From: Malcolm Beattie Date: Fri, 12 Dec 1997 16:20:38 +0000 Subject: 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 --- pp_sys.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_sys.c') 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; -- cgit v1.2.1