X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hv.c;h=4831ccd563ad38db1cc0b76ce23ab5d645768f83;hb=83f957ec18f48986bbac4f0b35e66bbc0e02ccdf;hp=cb4eda99521e3a68018c5bcaee2bb9913be0882a;hpb=abc25d8c4f3e0ad18f7a95f0bea31aeb63a459a2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hv.c b/hv.c
index cb4eda9..4831ccd 100644
--- a/hv.c
+++ b/hv.c
@@ -2289,6 +2289,7 @@ Perl_unsharepvn(pTHX_ const char *str, I32 len, U32 hash)
 void
 Perl_unshare_hek(pTHX_ HEK *hek)
 {
+    assert(hek);
     unshare_hek_or_pvn(hek, NULL, 0, 0);
 }