diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-08-02 02:41:53 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-02 16:37:32 +0000 |
| commit | f2933f5ff5169de5debfdcdf1f28f65f2037fa3b (patch) | |
| tree | 0ea10d15c05e9967e7a03b4a11b895992ba125c9 /pp.c | |
| parent | 64420d0dad7f104a674beb20cf3622ce16388536 (diff) | |
| download | perl-f2933f5ff5169de5debfdcdf1f28f65f2037fa3b.tar.gz | |
[patch] ithreads + refto fix improvement
Message-ID: <Pine.LNX.4.21.0108020939030.8991-100000@mako.covalent.net>
p4raw-id: //depot/perl@11553
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -467,8 +467,8 @@ S_refto(pTHX_ SV *sv) SvTEMP_off(sv); (void)SvREFCNT_inc(sv); } - else if (SvPADTMP(sv) && !(isGV(sv) && GvIN_PAD(sv))) - sv = newSVsv(sv); + else if (SvPADTMP(sv) && !IS_PADGV(sv)) + sv = newSVsv(sv); else { SvTEMP_off(sv); (void)SvREFCNT_inc(sv); |