Pod typos, pod2man bugs, and miscellaneous installation comments

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 9ee7e29..d3b0344 100644 (file)
--- a/op.c
+++ b/op.c
@@ -49,7 +49,7 @@ CvNAME(cv)
 CV* cv;
 {
     SV* tmpsv = sv_newmortal();
-    gv_efullname(tmpsv, CvGV(cv), Nullch);
+    gv_efullname3(tmpsv, CvGV(cv), Nullch);
     return SvPV(tmpsv,na);
 }
 
@@ -997,6 +997,8 @@ I32 type;
     case OP_PADAV:
     case OP_PADHV:
        modcount = 10000;
+       if (type == OP_REFGEN && op->op_flags & OPf_PARENS)
+           return op;          /* Treat \(@foo) like ordinary list. */
        /* FALL THROUGH */
     case OP_PADSV:
        modcount++;
@@ -1008,6 +1010,11 @@ I32 type;
     case OP_PUSHMARK:
        break;
        
+    case OP_KEYS:
+       if (type != OP_SASSIGN)
+           goto nomod;
+       mtype = 'k';
+       goto makelv;
     case OP_POS:
        mtype = '.';
        goto makelv;
@@ -2975,7 +2982,7 @@ OP *block;
        sv_catpv(sv,"-");
        sprintf(buf,"%ld",(long)curcop->cop_line);
        sv_catpv(sv,buf);
-       gv_efullname(tmpstr, gv, Nullch);
+       gv_efullname3(tmpstr, gv, Nullch);
        hv_store(GvHV(DBsub), SvPVX(tmpstr), SvCUR(tmpstr), sv, 0);
     }
     op_free(op);