This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stop using PL_glob_index for PL_globhook
[perl5.git] / pp_sys.c
index 06b3684..ec77763 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -376,11 +376,7 @@ PP(pp_glob)
         * */
        return NORMAL;
     }
-    /* stack args are: wildcard, gv(_GEN_n) */
-
     if (PL_globhook) {
-       PUSHs(GvSV(gv));
-       PUTBACK;
        PL_globhook(aTHX);
        return NORMAL;
     }