diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-08 14:40:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-08 14:40:23 +0000 |
| commit | 8127e0e3c3aeffc5d0bcdebd664c0fd7cd5bd9fe (patch) | |
| tree | 50174d9ea7f6aa7a36149f61c6254244367a1289 /pp_hot.c | |
| parent | f25172013443eb112285f24a09b83900edb8a738 (diff) | |
| download | perl-8127e0e3c3aeffc5d0bcdebd664c0fd7cd5bd9fe.tar.gz | |
make qw() into a true list at compile time (slightly modified
variant of patch suggested by Tom Hughes <tom@compton.demon.co.uk>)
p4raw-id: //depot/perl@2835
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -655,7 +655,7 @@ PP(pp_aassign) if (SvSMAGICAL(sv)) mg_set(sv); if (!didstore) - SvREFCNT_dec(sv); + sv_2mortal(sv); } TAINT_NOT; } @@ -682,7 +682,7 @@ PP(pp_aassign) if (SvSMAGICAL(tmpstr)) mg_set(tmpstr); if (!didstore) - SvREFCNT_dec(tmpstr); + sv_2mortal(tmpstr); } TAINT_NOT; } @@ -704,7 +704,7 @@ PP(pp_aassign) if (SvSMAGICAL(tmpstr)) mg_set(tmpstr); if (!didstore) - SvREFCNT_dec(tmpstr); + sv_2mortal(tmpstr); } TAINT_NOT; } |