[Moose-commits] r7165 - in Mouse/trunk: . lib/Mouse/Meta

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2008-12-21 20:15:00 -0800 (Sun, 21 Dec 2008)
New Revision: 7165

Modified:
   Mouse/trunk/
   Mouse/trunk/lib/Mouse/Meta/Class.pm
Log:
 r77777 at onn:  sartak | 2008-12-21 23:14:52 -0500
 We do need to copy %options so we can use $options{superclasses} later



Property changes on: Mouse/trunk
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77775
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77777
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997

Modified: Mouse/trunk/lib/Mouse/Meta/Class.pm
===================================================================
--- Mouse/trunk/lib/Mouse/Meta/Class.pm	2008-12-22 04:10:07 UTC (rev 7164)
+++ Mouse/trunk/lib/Mouse/Meta/Class.pm	2008-12-22 04:15:00 UTC (rev 7165)
@@ -236,7 +236,8 @@
         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 @@
         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 {