1 files changed, 3 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index e39a2c9d26..33aa8ec38c 100644
--- a/sv.c
+++ b/sv.c
@@ -5485,6 +5485,9 @@ Perl_sv_clear(pTHX_ register SV *const sv)
 	cv_undef((CV*)sv);
 	goto freescalar;
     case SVt_PVHV:
+	if (PL_last_swash_hv == (HV*)sv) {
+	    PL_last_swash_hv = NULL;
+	}
 	Perl_hv_kill_backrefs(aTHX_ (HV*)sv);
 	hv_undef((HV*)sv);
 	break;