projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
integrate cfgperl changes into mainline
[p5sagit/p5-mst-13.2.git]
/
pp_sys.c
diff --git
a/pp_sys.c
b/pp_sys.c
index
96ecd58
..
8fa38f2
100644
(file)
--- 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);