Fix more hash ordering bugs in tests by forcing sort of returned plug…

…ins (Yves Orton)

Changes

@@ -1,3 +1,6 @@
+2013-02-25 - 4.7
+    Fix more hash ordering bugs in tests by forcing sort of returned plugins (Yves Orton)
+
 2013-01-23 - 4.6
     Add warning about future removal from core
 

lib/Module/Pluggable.pm

@@ -11,7 +11,7 @@ use if $] > 5.017, 'deprecate';
 # Peter Gibbons: I wouldn't say I've been missing it, Bob! 
 
 
-$VERSION = '4.6'; # core release only!
+$VERSION = '4.7';
 $FORCE_SEARCH_ALL_PATHS = 0;
 
 sub import {

lib/Module/Pluggable/Object.pm

@@ -83,16 +83,17 @@ sub plugins {
     if (defined $self->{'instantiate'}) {
         my $method = $self->{'instantiate'};
         my @objs   = ();
-        foreach my $package (keys %plugins) {
-			next unless $package->can($method);
+        foreach my $package (sort keys %plugins) {
+            next unless $package->can($method);
             my $obj = eval { $package->$method(@_) };
-	        $self->{'on_instantiate_error'}->($package, $@) if $@;
+            $self->{'on_instantiate_error'}->($package, $@) if $@;
             push @objs, $obj if $obj;           
         }
         return @objs;
     } else { 
         # no? just return the names
-        return keys %plugins;
+        my @objs= sort keys %plugins;
+        return @objs;
     }
 }
 

t/19can_ok_clobber.t

@@ -10,7 +10,7 @@ use Test::More tests=>5;
 #use_ok( 'MyTest' );
 #diag "Module::Pluggable::VERSION $Module::Pluggable::VERSION";
 
-my @plugins = MyTest->plugins;
+my @plugins = sort MyTest->plugins;
 my @plugins_after;
 
 use_ok( 'MyTest::Plugin::Foo' );
@@ -21,16 +21,16 @@ is_deeply(
     \@plugins_after,
     \@plugins,
     "plugins haven't been clobbered",
-);
+) or diag Dumper(\@plugins_after,\@plugins);
 
 can_ok ($foo, 'frobnitz');
 
-@plugins_after = MyTest->plugins;
+@plugins_after = sort MyTest->plugins;
 is_deeply(
     \@plugins_after,
     \@plugins,
     "plugins haven't been clobbered",
-) or diag Dumper ;
+) or diag Dumper(\@plugins_after,\@plugins);