From: Graham Knop <haarg@haarg.org>
Date: Mon, 24 Jun 2013 03:32:04 +0000 (-0400)
Subject: correct variable for name in _generate_populate_set
X-Git-Tag: v1.003000~20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06945431aa98e73e65734c9ff78943203a280b04;p=gitmo%2FMoo.git

correct variable for name in _generate_populate_set
---

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})