From: Shawn M Moore <sartak@gmail.com>
Date: Mon, 22 Dec 2008 04:15:00 +0000 (+0000)
Subject: We do need to copy %options so we can use $options{superclasses} later
X-Git-Tag: 0.19~78
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd3c04d749655e0e6b7449551d8561fbac75b78a;p=gitmo%2FMouse.git

We do need to copy %options so we can use $options{superclasses} later
---

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 8d82928..82f293d 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -236,7 +236,8 @@ sub create {
         confess "creation of $package_name failed : $@" if $@;
     };
 
-    delete @options{qw(
+    my %initialize_options = %options;
+    delete @initialize_options{qw(
         package
         superclasses
         attributes
@@ -244,7 +245,7 @@ sub create {
         version
         authority
     )};
-    my $meta = $self->initialize( $package_name => %options );
+    my $meta = $self->initialize( $package_name => %initialize_options );
 
     # FIXME totally lame
     $meta->add_method('meta' => sub {