‘sub CORE::GLOBAL::glob;’ doesn’t create a full glob, but cheats for
efficiency. Compilation of glob ops was not taking this into account.
GV * const * const gvp =
(GV **)hv_fetchs(PL_globalstash, "glob", FALSE);
gv = gvp ? *gvp : NULL;
+ if (gv && !isGV(gv)) gv_init(gv, PL_globalstash, "glob", 4, 0);
}
if (gv && GvCVu(gv) && GvIMPORTED_CV(gv)) {
require 'Config_heavy.pl'; # since runperl will need them
}
-plan tests => 30;
+plan tests => 31;
#
# This file tries to test builtin override using CORE::GLOBAL
is runperl(prog => 'sub CORE::GLOBAL::do; do file; print qq-ok\n-'),
"ok\n",
'no crash with CORE::GLOBAL::do stub';
+is runperl(prog => 'sub CORE::GLOBAL::glob; glob; print qq-ok\n-'),
+ "ok\n",
+ 'no crash with CORE::GLOBAL::glob stub';