diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-08 19:42:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-08 19:42:57 +0000 |
| commit | 91500cfd5c426b5ce4db817d5b64c763d5b8822b (patch) | |
| tree | 06148df1f82ee7bb548fabecb07061ebe03438e5 /pp_sys.c | |
| parent | 4771b018b5cdc984c08bd1fd014895ea804ec3f0 (diff) | |
| parent | 3541dd58afee4802e6d8771e6ed02e20cc107e31 (diff) | |
| download | perl-91500cfd5c426b5ce4db817d5b64c763d5b8822b.tar.gz | |
integrate cfgperl changes into mainline
p4raw-id: //depot/perl@2219
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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); |