glob() takes one or no user arguments and a non-user-visible second

hidden argument, fix its prototype-checking accordingly

p4raw-id: //depot/perl@5163

1 files changed, 2 insertions, 1 deletions

diff --git a/op.c b/op.c
index eb60ec1876..9ba8582152 100644
--- a/op.c
+++ b/op.c
@@ -5504,6 +5504,7 @@ Perl_ck_glob(pTHX_ OP *o)
 {
     GV *gv;
 
+    o = ck_fun(o);
     if ((o->op_flags & OPf_KIDS) && !cLISTOPo->op_first->op_sibling)
 	append_elem(OP_GLOB, o, newDEFSVOP());
 
@@ -5542,7 +5543,7 @@ Perl_ck_glob(pTHX_ OP *o)
     gv_IOadd(gv);
     append_elem(OP_GLOB, o, newGVOP(OP_GV, 0, gv));
     scalarkids(o);
-    return ck_fun(o);
+    return o;
 }
 
 OP *