Change 30063 by [EMAIL PROTECTED] on 2007/01/29 18:20:31
And now actually fixed. (All tests pass)
Affected files ...
... //depot/maint-5.8/perl/sv.c#332 edit
Differences ...
==== //depot/maint-5.8/perl/sv.c#332 (text) ====
Index: perl/sv.c
--- perl/sv.c#331~30062~ 2007-01-29 10:02:23.000000000 -0800
+++ perl/sv.c 2007-01-29 10:20:31.000000000 -0800
@@ -2669,11 +2669,10 @@
const char *buffer_end;
if (SvOBJECT(referent)) {
- const char *const name = HvNAME_get(SvSTASH(referent));
-
- if (name) {
- stashnamelen = strlen(name);
+ stashname = HvNAME_get(SvSTASH(referent));
+ if (stashname) {
+ stashnamelen = strlen(stashname);
SvUTF8_off(sv);
} else {
stashname = "__ANON__";
End of Patch.
