From: Kent Fredric <kentfredric@gmail.com>
Date: Tue, 22 Sep 2009 04:16:31 +0000 (+1200)
Subject: Made calls to List::Util::shuffle explicit as it causes fun for us over on the test... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d403253fea67a9e65c5499a270bc58b0e853ffc;p=gitmo%2FMoose.git

Made calls to List::Util::shuffle explicit as it causes fun for us over on the test-aggregate branch when :: is a totally different package.
---

diff --git a/t/030_roles/009_more_role_edge_cases.t b/t/030_roles/009_more_role_edge_cases.t
index e9923f0..de70b0e 100644
--- a/t/030_roles/009_more_role_edge_cases.t
+++ b/t/030_roles/009_more_role_edge_cases.t
@@ -156,7 +156,7 @@ use Test::Exception;
 # useful here (although more tests cant hurt)
 
 {
-    use List::Util qw/shuffle/;
+    use List::Util ();
 
     {
         package Abstract;
@@ -196,13 +196,13 @@ use Test::Exception;
         package SimpleClassWithSome;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteA ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteA ConcreteB/ };
         ::ok( !$@, "simple composition without abstract" ) || ::diag $@;
 
         package SimpleClassWithAll;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteA ConcreteB Abstract/ };
+        eval { with List::Util::shuffle qw/ConcreteA ConcreteB Abstract/ };
         ::ok( !$@, "simple composition with abstract" ) || ::diag $@;
     }
 
@@ -224,19 +224,19 @@ use Test::Exception;
         package ClassWithSome;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteC ConcreteB/ };
         ::ok( !$@, "composition without abstract" ) || ::diag $@;
 
         package ClassWithAll;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC Abstract ConcreteB/ };
+        eval { with List::Util::shuffle qw/ConcreteC Abstract ConcreteB/ };
         ::ok( !$@, "composition with abstract" ) || ::diag $@;
 
         package ClassWithEverything;
         use Moose;
 
-        eval { with ::shuffle qw/ConcreteC Abstract ConcreteA ConcreteB/ }; # this should clash
+        eval { with List::Util::shuffle qw/ConcreteC Abstract ConcreteA ConcreteB/ }; # this should clash
         ::ok( !$@, "can compose ConcreteA and ConcreteC together" );
     }