fix RT #75180, accessors appear under wrong name in introspection

rakudo · May 19, 2010 · 603c64c · 603c64c
1 parent 3a694dd
commit 603c64c
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/metamodel/Attribute.nqp b/src/metamodel/Attribute.nqp
@@ -56,13 +56,17 @@ method compose($package) {
             pir::new__PsP('Perl6Scalar', pir::getattribute__PPS($self, $name))
         }
         sub accessor_helper_rw($self) {
-            pir::getattribute__PPS($self, $name)    
+            pir::getattribute__PPS($self, $name)
         }
 
         # XXX check there isn't already one...
         my $meth := $!rw ?? pir::find_lex__Ps('accessor_helper_rw') !! pir::find_lex__Ps('accessor_helper_ro');
         my $meth_name := pir::substr__SSi($name, 2);
-        $package.add_method($package, $meth_name, pir::clone__PP($meth));
+        $meth := pir::clone__PP($meth);
+        # introspection looks at the actual sub name, so set it
+        # to the value the user expects
+        pir::set__vps($meth, $meth_name);
+        $package.add_method($package, $meth_name, $meth);
     }
 
     # XXX Handles...

diff --git a/t/spectest.data b/t/spectest.data
@@ -29,6 +29,7 @@ integration/advent2009-day03.t
 integration/advent2009-day04.t
 integration/advent2009-day05.t
 integration/advent2009-day06.t
+integration/advent2009-day11.t
 integration/code-blocks-as-sub-args.t
 integration/lexical-array-in-inner-block.t
 integration/lexicals-and-attributes.t