Deprecate HAS_ISAREV, it was always just returning 1!

diff --git a/Changes b/Changes
index a251ac7..c1c46cc 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
 0.80
+    * Class::MOP
+      - HAS_ISAREV is now deprecated. It has always returned 1 so
+        it won't be missed. (Sartak)
+
     * Class::MOP::*
       - Call user_class->meta in fewer places, with the eventual
         goal of allowing the user to rename or exclude ->meta

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index fb978b7..2ca8d17 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -24,9 +24,7 @@ BEGIN {
         ? sub () { 0 }
         : sub () { 1 };    
 
-    *HAVE_ISAREV = defined(&mro::get_isarev)
-        ? sub () { 1 }
-        : sub () { 1 };
+    sub HAVE_ISAREV () { 1 }
 
     # this is either part of core or set up appropriately by MRO::Compat
     *check_package_cache_flag = \&mro::get_pkg_gen;