Change 30062: Fix up damage from change 30061 - at least make sv.c compile.

[Nicholas Clark]

Change 30062 by [EMAIL PROTECTED] on 2007/01/29 18:02:23

        Fix up damage from change 30061 - at least make sv.c compile.
        [Problem caused by not running make test in the correct tree]

Affected files ...

... //depot/maint-5.8/perl/sv.c#331 edit

Differences ...

==== //depot/maint-5.8/perl/sv.c#331 (text) ====
Index: perl/sv.c
--- perl/sv.c#330~30058~        2007-01-29 08:46:38.000000000 -0800
+++ perl/sv.c   2007-01-29 10:02:23.000000000 -0800
@@ -852,7 +852,7 @@
        + sizeof (((type*)SvANY((SV*)0))->last_member)
 
 static const struct body_details bodies_by_type[] = {
-    {0, 0, 0, SVt_NULL, FALSE, NONV, NOARENA},
+    {0, 0, 0, SVt_NULL, FALSE, NONV, NOARENA, 0},
 
     { sizeof(xiv_allocated), sizeof(IV),
       + relative_STRUCT_OFFSET(xiv_allocated, XPVIV, xiv_iv),
@@ -2669,17 +2669,12 @@
                    const char *buffer_end;
 
                    if (SvOBJECT(referent)) {
-                       const HEK *const name = HvNAME_HEK(SvSTASH(referent));
+                       const char *const name = HvNAME_get(SvSTASH(referent));
 
                        if (name) {
-                           stashname = HEK_KEY(name);
-                           stashnamelen = HEK_LEN(name);
+                           stashnamelen = strlen(name);
 
-                           if (HEK_UTF8(name)) {
-                               SvUTF8_on(sv);
-                           } else {
-                               SvUTF8_off(sv);
-                           }
+                           SvUTF8_off(sv);
                        } else {
                            stashname = "__ANON__";
                            stashnamelen = 8;
End of Patch.