From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 3 May 2012 19:15:15 +0000 (+0000)
Subject: idiot, matt.
X-Git-Tag: v0.091002~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b1913bcff05678bd2bd7fd03c31359b8613d2ae;p=gitmo%2FMoo.git

idiot, matt.
---

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index d315818..b01ab04 100644
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -399,7 +399,7 @@ sub _generate_core_set {
 sub _generate_simple_set {
   my ($self, $me, $name, $spec, $value) = @_;
   my $name_str = perlstring $name;
-  my $simple = $self->_generate_core_set($self, $me, $name, $spec, $value);
+  my $simple = $self->_generate_core_set($me, $name, $spec, $value);
 
   if ($spec->{weak_ref}) {
     require Scalar::Util;