From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 25 Apr 2011 07:21:14 +0000 (-0500)
Subject: this only matters for lazy attributes with initializers
X-Git-Tag: 2.0100~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1ef0daf972b8d8a599b4e37b724702025647543;p=gitmo%2FMoose.git

this only matters for lazy attributes with initializers
---

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index 8601487..6ee2873 100644
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -63,7 +63,7 @@ sub _eval_environment {
 
     # XXX ugh, fix these
     $env->{'$attr'} = \$attr
-        if $attr->has_initializer;
+        if $attr->has_initializer && $attr->is_lazy;
     $env->{'$meta'} = \$self;
 
     return $env;