From: Yuval Kogman <nothingmuch@woobling.org>
Date: Fri, 2 Jan 2009 03:47:29 +0000 (+0000)
Subject: don't sort superclasses when caching anon classes (MI is order sensitive)
X-Git-Tag: 0.65~39
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11aaed6c8293e6c587470a4f35ac40d16a1ff3fb;p=gitmo%2FMoose.git

don't sort superclasses when caching anon classes (MI is order sensitive)
---

diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 85daddc..66a2f23 100644
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -90,8 +90,8 @@ sub create_anon_class {
     
     # 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}) {