diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-05-25 23:44:20 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 14:07:43 +0000 |
| commit | fe4a5e1fbb83ffbce81a0da0ffeb69d3ffef3a82 (patch) | |
| tree | 20d228d8f4fb7cf560c50a15469c179251ac91b3 /sv.c | |
| parent | fd3cca2544a9395f0e53e881d854a52d1a0914a7 (diff) | |
| download | perl-fe4a5e1fbb83ffbce81a0da0ffeb69d3ffef3a82.tar.gz | |
Re: [ID 20010526.001] localized glob loses value when assigned to
Message-ID: <NAEKLNAAHLMBPMPNBMLECECHDFAA.rs@crystalflame.net>
p4raw-id: //depot/perl@10563
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -3215,12 +3215,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) #endif if (intro) { - GP *gp; - gp_free((GV*)dstr); GvINTRO_off(dstr); /* one-shot flag */ - Newz(602,gp, 1, GP); - GvGP(dstr) = gp_ref(gp); - GvSV(dstr) = NEWSV(72,0); GvLINE(dstr) = CopLINE(PL_curcop); GvEGV(dstr) = (GV*)dstr; } |