ck_glob() - add a little code comment
authorDavid Mitchell <davem@iabyn.com>
Fri, 31 Dec 2010 14:53:24 +0000 (14:53 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 2 Jan 2011 20:00:27 +0000 (20:00 +0000)
op.c

diff --git a/op.c b/op.c
index 99d244c..ba9e2e2 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7638,7 +7638,7 @@ Perl_ck_glob(pTHX_ OP *o)
 
     o = ck_fun(o);
     if ((o->op_flags & OPf_KIDS) && !cLISTOPo->op_first->op_sibling)
-       op_append_elem(OP_GLOB, o, newDEFSVOP());
+       op_append_elem(OP_GLOB, o, newDEFSVOP()); /* glob() => glob($_) */
 
     if (!((gv = gv_fetchpvs("glob", GV_NOTQUAL, SVt_PVCV))
          && GvCVu(gv) && GvIMPORTED_CV(gv)))