From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sat, 9 Aug 2008 05:17:43 +0000 (+0000)
Subject: MRO::Compat already does various version fiddling, no need to duplicate
X-Git-Tag: 0_64_01~65
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c489bcb857ad490c3729cd10965e9811e6a25ab;p=gitmo%2FClass-MOP.git

MRO::Compat already does various version fiddling, no need to duplicate
---

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 50db76c..efa1166 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -47,20 +47,9 @@ BEGIN {
         # - SL
         no warnings 'prototype', 'redefine';
         
-        unless (IS_RUNNING_ON_5_10()) {
-            # get this from MRO::Compat ...
-            *check_package_cache_flag = \&MRO::Compat::__get_pkg_gen_pp;
-        }
-        else {
-            # NOTE:
-            # but if we are running 5.10 
-            # there is no need to use the 
-            # Pure Perl version since we 
-            # can use the built in mro 
-            # version instead.
-            # - SL
-            *check_package_cache_flag = \&mro::get_pkg_gen; 
-        }
+        # this is either part of core or set up appropriately by MRO::Compat
+        *check_package_cache_flag = \&mro::get_pkg_gen; 
+
         # our own version of Sub::Name
         *subname       = $_PP_subname;
         # and the Sub::Identify version of the get_code_info