remove -DH (DEBUG_H) misfeature

RT# 129300

This hash-dumping debugging flag corrupted hash values and has probably
not been used by anyone in 20 years.

1 files changed, 2 insertions, 6 deletions

diff --git a/doop.c b/doop.c
index 0a546cce8f..1b71402485 100644
--- a/doop.c
+++ b/doop.c
@@ -1335,12 +1335,8 @@ Perl_do_kv(pTHX)
 	    XPUSHs(sv);
 	}
 	if (dovalues) {
-	    SV *tmpstr = hv_iterval(keys,entry);
-	    DEBUG_H(Perl_sv_setpvf(aTHX_ tmpstr, "%lu%%%d=%lu",
-			    (unsigned long)HeHASH(entry),
-			    (int)HvMAX(keys)+1,
-			    (unsigned long)(HeHASH(entry) & HvMAX(keys))));
-	    XPUSHs(tmpstr);
+	    SV *const sv = hv_iterval(keys,entry);
+	    XPUSHs(sv);
 	}
     }
     RETURN;