[Moose-commits] r7223 - Moose/trunk/lib/Moose/Meta

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

Author: nothingmuch
Date: 2009-01-01 19:47:29 -0800 (Thu, 01 Jan 2009)
New Revision: 7223

Modified:
   Moose/trunk/lib/Moose/Meta/Class.pm
Log:
don't sort superclasses when caching anon classes (MI is order sensitive)

Modified: Moose/trunk/lib/Moose/Meta/Class.pm
===================================================================
--- Moose/trunk/lib/Moose/Meta/Class.pm	2009-01-01 18:35:21 UTC (rev 7222)
+++ Moose/trunk/lib/Moose/Meta/Class.pm	2009-01-02 03:47:29 UTC (rev 7223)
@@ -90,8 +90,8 @@
     
     # something like Super::Class|Super::Class::2=Role|Role::1
     my $cache_key = join '=' => (
-        join('|', sort @{$options{superclasses} || []}),
-        join('|', sort @{$options{roles}        || []}),
+        join('|', @{$options{superclasses} || []}),
+        join('|', sort @{$options{roles}   || []}),
     );
     
     if ($cache_ok && defined $ANON_CLASSES{$cache_key}) {