Change 20587: hv_fetch_{ent,flags} failed to set HvHASKFLAGS on a hash where a

[Abhijit Menon-Sen]

Change 20587 by [EMAIL PROTECTED] on 2003/08/09 18:09:34

        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.

Affected files ...

... //depot/perl/hv.c#136 edit

Differences ...

==== //depot/perl/hv.c#136 (text) ====
Index: perl/hv.c
--- perl/hv.c#135~20224~        Sun Jul 27 08:48:20 2003
+++ perl/hv.c   Sat Aug  9 11:09:34 2003
@@ -308,6 +308,8 @@
             }
             else
                 HeKFLAGS(entry) = flags;
+            if (flags)
+                HvHASKFLAGS_on(hv);
         }
         if (flags & HVhek_FREEKEY)
             Safefree(key);
@@ -478,6 +480,8 @@
             }
             else
                 HeKFLAGS(entry) = flags;
+            if (flags)
+                HvHASKFLAGS_on(hv);
         }
        if (key != keysave)
            Safefree(key);
End of Patch.