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

1 files changed, 2 insertions, 3 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 0d2c970ff1..08c1f837c5 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;
 	    }