diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-05-04 18:12:03 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-05-04 18:12:03 +0100 |
commit | 1dffc4d1a24556f4e23f612d6713492847ff064b (patch) | |
tree | 82895cd711e2665533a5f8fb93a374810f3df612 /sv.c | |
parent | 2b78b7715e1330aaceb5d16e6de25abbe8fde06c (diff) | |
download | perl-1dffc4d1a24556f4e23f612d6713492847ff064b.tar.gz |
Fix SEGVs when cloning a typeglob that has been undefined. (RT #64954)
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; } |