diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-04-04 16:33:49 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-04-04 16:33:49 +0000 |
commit | 87bbc4e770a4509955f22a6dd3de9df50d04a819 (patch) | |
tree | 931bed59ab6822f2249f56628e444f847e51a959 /doio.c | |
parent | 761237fefd8d9f4cca56ce455ad540cab9bb0e3e (diff) | |
parent | 79cb57f6e01f91d8fff40d69caa187aaa669671b (diff) | |
download | perl-87bbc4e770a4509955f22a6dd3de9df50d04a819.tar.gz |
Integrate from mainperl.
p4raw-id: //depot/cfgperl@3220
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -1615,12 +1615,6 @@ do_msgrcv(SV **mark, SV **sp) msize = SvIVx(*++mark); mtype = (long)SvIVx(*++mark); flags = SvIVx(*++mark); - if (SvTHINKFIRST(mstr)) { - if (SvREADONLY(mstr)) - croak("Can't msgrcv to readonly var"); - if (SvROK(mstr)) - sv_unref(mstr); - } SvPV_force(mstr, len); mbuf = SvGROW(mstr, sizeof(long)+msize+1); |