Change 16238 by jhi@alpha on 2002/04/28 01:55:10
More valgrind findings: e.g. t/op/utfhash.t.
Affected files ...
.... //depot/perl/hv.c#115 edit
Differences ...
==== //depot/perl/hv.c#115 (text) ====
Index: perl/hv.c
--- perl/hv.c.~1~ Sat Apr 27 20:00:05 2002
+++ perl/hv.c Sat Apr 27 20:00:05 2002
@@ -1935,6 +1935,7 @@
sv = newSVpvn ((char*)as_utf8, utf8_len);
SvUTF8_on (sv);
+ Safefree (as_utf8); /* bytes_to_utf8() allocates a new string */
} else {
sv = newSVpvn_share(HEK_KEY(hek),
(HEK_UTF8(hek) ? -HEK_LEN(hek) : HEK_LEN(hek)),
End of Patch.
