1 files changed, 1 insertions, 2 deletions
diff --git a/doop.c b/doop.c
index 22e614a74e..19fe3105d5 100644
--- a/doop.c
+++ b/doop.c
@@ -1263,8 +1263,7 @@ Perl_do_kv(pTHX)
 	    XPUSHs(sv);
 	}
 	if (dovalues) {
-	    SV *tmpstr;
-	    tmpstr = hv_iterval(keys,entry);
+	    SV *tmpstr = hv_iterval(keys,entry);
 	    DEBUG_H(Perl_sv_setpvf(aTHX_ tmpstr, "%lu%%%d=%lu",
 			    (unsigned long)HeHASH(entry),
 			    (int)HvMAX(keys)+1,