utf8.c: Fix a minor refcounting bug caused by 02c8547

Under some circumstances it could cause a hash to point to a freed
element.  But the hash itself was leaking, so it caused on problems,
as no attempt to free its element again was made.

The next commit will stop the hash from leaking.

1 files changed, 3 insertions, 0 deletions

diff --git a/utf8.c b/utf8.c
index bde7f87fc7..62b9135c03 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2998,6 +2998,9 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
             {
 		Perl_croak(aTHX_ "panic: hv_store() unexpectedly failed");
 	    }
+	    /* We just stole a reference count. */
+	    if (swash_invlist_unclaimed) swash_invlist_unclaimed = FALSE;
+	    else SvREFCNT_inc_simple_void_NN(swash_invlist);
 	}
 
         if ((int) _invlist_len(swash_invlist) <= invlist_swash_boundary) {