diff options
| author | Alan Burlison <Alan.Burlison@uk.sun.com> | 2003-11-19 14:39:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-11-19 19:56:20 +0000 |
| commit | 5f099cb0574fe51d7450374a7827fa9383ec0061 (patch) | |
| tree | c8d5553710871948d89954766b9ba98a18be12f8 /hv.c | |
| parent | 715961523dc15717482c3eba9a533ed292b5a722 (diff) | |
| download | perl-5f099cb0574fe51d7450374a7827fa9383ec0061.tar.gz | |
clear of empty locked hash SEGVs
Message-ID: <3FBB8087.20206@sun.com>
p4raw-id: //depot/perl@21748
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1803,7 +1803,7 @@ Perl_hv_clear(pTHX_ HV *hv) xhv = (XPVHV*)SvANY(hv); - if (SvREADONLY(hv)) { + if (SvREADONLY(hv) && xhv->xhv_array != NULL) { /* restricted hash: convert all keys to placeholders */ I32 i; HE* entry; |