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