(Retracted by #15794)

Subject: [PATCH] hv.c
From: "Mattia Barbon" <mbarbon@dsi.unive.it>
Message-ID: <3CB056EC.16340.1119992@localhost>

p4raw-id: //depot/perl@15793

diff --git a/hv.c b/hv.c
index 1d967ce..b31f61f 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -195,6 +195,7 @@ S_hv_fetch_flags(pTHX_ HV *hv, const char *key, I32 klen, I32 lval, int flags)
     register XPVHV* xhv;
     register U32 hash;
     register HE *entry;
+    const char* keysave = key;
     SV *sv;
 
     if (!hv)