X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=8fa38f2860d8451c6765db9b13790b173dde3390;hb=91500cfd5c426b5ce4db817d5b64c763d5b8822b;hp=96ecd5875cb3de6b93862af97dda5f18b2291d1c;hpb=4771b018b5cdc984c08bd1fd014895ea804ec3f0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index 96ecd58..8fa38f2 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1467,8 +1467,10 @@ PP(pp_syswrite)
     djSP;
     int items = (SP - PL_stack_base) - TOPMARK;
     if (items == 2) {
+	SV *sv;
         EXTEND(SP, 1);
-        PUSHs(sv_2mortal(newSViv(sv_len(*SP))));
+	sv = sv_2mortal(newSViv(sv_len(*SP)));
+	PUSHs(sv);
         PUTBACK;
     }
     return pp_send(ARGS);