From: Yuval Kogman <nothingmuch@woobling.org>
Date: Tue, 15 Apr 2008 21:33:27 +0000 (+0000)
Subject: Use MRO::Compat in Class::MOP. The C3 test already checks this behavior
X-Git-Tag: 0_64~75
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cf322a07ae921abe4b55ff63f8b23fdb5e7fecb;p=gitmo%2FClass-MOP.git

Use MRO::Compat in Class::MOP. The C3 test already checks this behavior
---

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index b8d6808..f44f17a 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -4,6 +4,8 @@ package Class::MOP;
 use strict;
 use warnings;
 
+use MRO::Compat;
+
 use Carp         'confess';
 use Scalar::Util 'weaken';
 
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index d2c9eef..68c3d47 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -507,13 +507,7 @@ sub subclasses {
 
 
 sub linearized_isa {
-    if (Class::MOP::IS_RUNNING_ON_5_10()) {
-        return @{ mro::get_linear_isa( (shift)->name ) };
-    }
-    else {
-        my %seen;
-        return grep { !($seen{$_}++) } (shift)->class_precedence_list;
-    }
+    return @{ mro::get_linear_isa( (shift)->name ) };
 }
 
 sub class_precedence_list {