Fix SEGVs when cloning a typeglob that has been undefined. (RT #64954)

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 7d2eae5950..b13985b271 100644
--- a/sv.c
+++ b/sv.c
@@ -10505,7 +10505,7 @@ Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
     ret->gp_cv		= cv_dup_inc(gp->gp_cv, param);
     ret->gp_cvgen	= gp->gp_cvgen;
     ret->gp_line	= gp->gp_line;
-    ret->gp_file_hek	= hek_dup(gp->gp_file_hek, param);
+    ret->gp_file_hek	= gp->gp_file_hek ? hek_dup(gp->gp_file_hek, param) : NULL;
     return ret;
 }