From: Vincent Pit <vince@profvince.com>
Date: Sat, 7 Feb 2009 14:17:04 +0000 (+0100)
Subject: pp_send() doesn't need to allocate 1000 stack slots for syswrite $tiedhandle, $buf
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b6474b65b5960c01431344dff68b19ec547ad06;p=p5sagit%2Fp5-mst-13.2.git

pp_send() doesn't need to allocate 1000 stack slots for syswrite $tiedhandle, $buf
---

diff --git a/pp_sys.c b/pp_sys.c
index 0d2c970..08c1f83 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1818,9 +1818,8 @@ PP(pp_send)
 	    SV *sv;
 
 	    if (MARK == SP - 1) {
-		EXTEND(SP, 1000);
-		sv = sv_2mortal(newSViv(sv_len(*SP)));
-		PUSHs(sv);
+		sv = *SP;
+		mXPUSHi(sv_len(sv));
 		PUTBACK;
 	    }