Resolve RT #70569: Prototype mismatch: sub Mouse::Util::get_linear_isa($;$) vs none...
Fuji Goro [Tue, 4 Oct 2011 00:00:03 +0000 (17:00 -0700)]
lib/Mouse/Util.pm

index fc2292a..ee422b7 100644 (file)
@@ -80,7 +80,8 @@ BEGIN{
 
     # definition of mro::get_linear_isa()
     my $get_linear_isa;
-    if (eval { require mro }) {
+    if ($] >= 5.010_000) {
+        require mro;
         $get_linear_isa = \&mro::get_linear_isa;
     }
     else {