From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Wed, 4 Nov 1998 01:22:30 +0000 (+0200)
Subject: sysio.t failure: fix undefined order of evaluation, from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f089d786b85b0dead654d5a5fa90beda9093dfa;p=p5sagit%2Fp5-mst-13.2.git

sysio.t failure: fix undefined order of evaluation, from
Subject: Not OK: perl 5.00553 on alpha-thread 5.0 [PATCH]
To: perlbug@perl.com
Message-ID: <MLIST_199811032227.RAA143892@web.zk3.dec.com>

p4raw-id: //depot/cfgperl@2189
---

diff --git a/pp_sys.c b/pp_sys.c
index 7ae628b..d39ecb6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1464,8 +1464,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);