need to use a consistent sort order, now that this isn't cached

[gitmo/Class-MOP.git] / lib / Class / MOP / Class.pm

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index fbe64e4..891e611 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -643,7 +643,7 @@ sub _inline_slot_initializers {
     my $idx = 0;
 
     return map { $self->_inline_slot_initializer($_, $idx++) }
-               $self->get_all_attributes;
+               sort { $a->name cmp $b->name } $self->get_all_attributes;
 }
 
 sub _inline_slot_initializer {