X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FAccessor.pm;fp=lib%2FMethod%2FGenerate%2FAccessor.pm;h=0ba40752f5a2b0263ec14f60f740a7f9583e98ad;hb=06945431aa98e73e65734c9ff78943203a280b04;hp=0b5d4225aad1560322552078d098692d0684d654;hpb=fe0d87fb8d5ec93bf32a1c256c2107262f04ce0f;p=gitmo%2FMoo.git

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 0b5d422..0ba4075 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -458,7 +458,7 @@ sub _generate_populate_set {
   if ($self->has_eager_default($name, $spec)) {
     my $get_indent = ' ' x ($spec->{isa} ? 6 : 4);
     my $get_default = $self->_generate_get_default(
-                        '$new', $_, $spec
+                        '$new', $name, $spec
                       );
     my $get_value = 
       defined($spec->{init_arg})