diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-04-27 23:15:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-04-27 23:15:02 +0000 |
| commit | 658aef798ab992aed2b708fed0d12323ab3b1fcb (patch) | |
| tree | c0e2521ed62e971248177a82a6c9beca14531400 /scope.c | |
| parent | 3a465856879d8f5c62068f777bdbd4b60c7e7eb4 (diff) | |
| download | perl-658aef798ab992aed2b708fed0d12323ab3b1fcb.tar.gz | |
[perl #39012] another REIFY bug
p4raw-id: //depot/perl@27986
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -845,9 +845,9 @@ Perl_leave_scope(pTHX_ I32 base) value = (SV*)SSPOPPTR; i = SSPOPINT; av = (AV*)SSPOPPTR; + ptr = av_fetch(av,i,1); if (!AvREAL(av) && AvREIFY(av)) /* undo reify guard */ SvREFCNT_dec(value); - ptr = av_fetch(av,i,1); if (ptr) { sv = *(SV**)ptr; if (sv && sv != &PL_sv_undef) { |