1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 0536829016..00321af164 100644
--- a/perl.c
+++ b/perl.c
@@ -497,7 +497,7 @@ perl_destruct(register PerlInterpreter *sv_interp)
 	    if (hent) {
 		warn("Unbalanced string table refcount: (%d) for \"%s\"",
 		     HeVAL(hent) - Nullsv, HeKEY(hent));
-		HeVAL(hent) = Nullsv;
+		HeVAL(hent) = &sv_undef;
 		hent = HeNEXT(hent);
 	    }
 	    if (!hent) {