From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 8 Mar 2007 11:19:38 +0000 (+0000)
Subject: Need to extend the stack when using warn() without
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83f957ec18f48986bbac4f0b35e66bbc0e02ccdf;p=p5sagit%2Fp5-mst-13.2.git

Need to extend the stack when using warn() without
an argument (this fixes bug #41716)

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

diff --git a/pp_sys.c b/pp_sys.c
index c35fb5b..29638d9 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -437,6 +437,7 @@ PP(pp_warn)
     else if (SP == MARK) {
 	tmpsv = &PL_sv_no;
 	EXTEND(SP, 1);
+	SP = MARK + 1;
     }
     else {
 	tmpsv = TOPs;