1 files changed, 0 insertions, 2 deletions
diff --git a/hv.c b/hv.c
index f418972303..2b00650fe7 100644
--- a/hv.c
+++ b/hv.c
@@ -1767,12 +1767,10 @@ value, you can get it through the macro C<HvFILL(tb)>.
 I32
 Perl_hv_iterinit(pTHX_ HV *hv)
 {
-    register XPVHV* xhv;
     HE *entry;
 
     if (!hv)
 	Perl_croak(aTHX_ "Bad hash");
-    xhv = (XPVHV*)SvANY(hv);
 
     if (SvOOK(hv)) {
 	struct xpvhv_aux *iter = HvAUX(hv);