From: Abhijit Menon-Sen <ams@wiw.org>
Date: Sat, 9 Aug 2003 18:09:34 +0000 (+0000)
Subject: hv_fetch_{ent,flags} failed to set HvHASKFLAGS on a hash where a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=27a3632dc8ba5e57d3f3b0996b65e6dcebf37875;p=p5sagit%2Fp5-mst-13.2.git

hv_fetch_{ent,flags} failed to set HvHASKFLAGS on a hash where a
normal key was replaced by its UTF-8 equivalent. This caused the
"Storable problem" RT3 users reported under RH9.

p4raw-id: //depot/perl@20587
---

diff --git a/hv.c b/hv.c
index 78082d0..63e112a 100644
--- a/hv.c
+++ b/hv.c
@@ -308,6 +308,8 @@ S_hv_fetch_flags(pTHX_ HV *hv, const char *key, I32 klen, I32 lval, int flags)
             }
             else
                 HeKFLAGS(entry) = flags;
+            if (flags)
+                HvHASKFLAGS_on(hv);
         }
         if (flags & HVhek_FREEKEY)
             Safefree(key);
@@ -478,6 +480,8 @@ Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash)
             }
             else
                 HeKFLAGS(entry) = flags;
+            if (flags)
+                HvHASKFLAGS_on(hv);
         }
 	if (key != keysave)
 	    Safefree(key);