From: Dave Rolsky <autarch@urth.org>
Date: Wed, 3 Sep 2008 15:45:14 +0000 (+0000)
Subject: $self should be %self if we use map like that
X-Git-Tag: 0.57~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6aaa1094fc7636980dc6631ee2b2c1671712a7e;p=gitmo%2FMoose.git

$self should be %self if we use map like that
---

diff --git a/lib/Moose/Unsweetened.pod b/lib/Moose/Unsweetened.pod
index 2dc114f..654e522 100644
--- a/lib/Moose/Unsweetened.pod
+++ b/lib/Moose/Unsweetened.pod
@@ -114,10 +114,10 @@ helpers like C<Class::Accessor>.
 
       $class->_validate_shirt_size( $p{shirt_size} );
 
-      my $self = map { $_ => $p{$_} } qw( name shirt_size );
-      $self->{birth_date} = $date;
+      my %self = map { $_ => $p{$_} } qw( name shirt_size );
+      $self{birth_date} = $date;
 
-      return bless $self, $class;
+      return bless \%self, $class;
   }
 
   sub _validate_name {