perlhist: add 5.15.0 and 5.14.1 entries

[perl5.git] / pad.c

diff --git a/pad.c b/pad.c
index 3d5f827..b5ee2bf 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -78,9 +78,9 @@ in PL_op->op_targ), wasting a name SV for them doesn't make sense.
 
 The SVs in the names AV have their PV being the name of the variable.
 xlow+1..xhigh inclusive in the NV union is a range of cop_seq numbers for
-which the name is valid (assed through the macros COP_SEQ_RANGE_LOW and _HIGH).
-During compilation, these fields may hold the special value PERL_PADSEQ_INTRO
-to indicate various stages:
+which the name is valid (accessed through the macros COP_SEQ_RANGE_LOW and
+_HIGH).  During compilation, these fields may hold the special value
+PERL_PADSEQ_INTRO to indicate various stages:
 
    COP_SEQ_RANGE_LOW        _HIGH
    -----------------        -----
@@ -795,8 +795,7 @@ Perl_find_rundefsv(pTHX)
     po = pad_findlex("$_", find_runcv(NULL), PL_curcop->cop_seq, 1,
            NULL, &namesv, &flags);
 
-    if (po == NOT_IN_PAD
-       || (SvFLAGS(namesv) & (SVpad_NAME|SVpad_OUR)) == (SVpad_NAME|SVpad_OUR))
+    if (po == NOT_IN_PAD || SvPAD_OUR(namesv))
        return DEFSV;
 
     return PAD_SVl(po);