This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix CORE::glob
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 2e0553a..21b5c2a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13012,6 +13012,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_destroyhook     = proto_perl->Idestroyhook;
     PL_signalhook      = proto_perl->Isignalhook;
 
+    PL_globhook                = proto_perl->Iglobhook;
+
 #ifdef THREADS_HAVE_PIDS
     PL_ppid            = proto_perl->Ippid;
 #endif