Fix another keys ordering bug.
gfx [Fri, 4 Sep 2009 12:20:50 +0000 (21:20 +0900)]
This will will occur only on 5.8.1, but anyway one must not depend on the order of keys()/values()/each().

lib/Moose/Meta/Role/Application/ToClass.pm
t/030_roles/043_conflict_many_methods.t

index 570f201..8620907 100644 (file)
@@ -73,6 +73,7 @@ sub check_required_methods {
 
     my $error = '';
 
+    @missing = sort { $a->name cmp $b->name } @missing;
     my @conflicts = grep { $_->isa('Moose::Meta::Role::Method::Conflicting') } @missing;
 
     if (@conflicts) {
index 94f730f..384f97f 100644 (file)
@@ -41,5 +41,5 @@ use Moose;
         'Bomb', 'Spouse',
         'Caninish', 'Treeve',
     );
-} qr/Due to method name conflicts in roles 'Bomb' and 'Spouse', the methods 'explode' and 'fuse' must be implemented or excluded by 'PracticalJoke'/;
+} qr/Due to a method name conflict in roles 'Caninish' and 'Treeve', the method 'bark' must be implemented or excluded by 'PracticalJoke'/;