Re: [perl #53850] [PATCH] Add class name to exception attribute already exists

[NotFound]

Sorry, forgot to attach the patch file.

-- 
Salu2

Index: src/pmc/class.pmc
===================================================================
--- src/pmc/class.pmc	(revisión: 27379)
+++ src/pmc/class.pmc	(copia de trabajo)
@@ -644,8 +644,11 @@
 
         /* If we already have an attribute of this name, it's an error. */
         if (VTABLE_exists_keyed_str(interp, _class->attrib_metadata, name))
+        {
             real_exception(interp, NULL, INVALID_OPERATION,
-                "Attribute '%Ss' already exists.", name);
+                "Attribute '%Ss' already exists in '%Ss'.", name,
+                VTABLE_get_string(INTERP, SELF));
+        }
 
         /* Set name and type. */
         VTABLE_set_string_keyed_str(interp, new_attribute, CONST_STRING(interp, "name"), name);
Index: t/pmc/objects.t
===================================================================
--- t/pmc/objects.t	(revisión: 27379)
+++ t/pmc/objects.t	(copia de trabajo)
@@ -1191,7 +1191,7 @@
     print "never\n"
     end
 CODE
-/Attribute 'i' already exists/
+/Attribute 'i' already exists in 'Foo'/
 OUTPUT
 
 pasm_output_is( <<'CODE', <<'OUTPUT', "PMC as classes" );