From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 31 Mar 2009 03:31:15 +0000 (-0400)
Subject: Deprecate HAS_ISAREV, it was always just returning 1!
X-Git-Tag: 0.80~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86c3288b214cc2384f2e143c31a5cf3c994d4b28;p=gitmo%2FClass-MOP.git

Deprecate HAS_ISAREV, it was always just returning 1!
---

diff --git a/Changes b/Changes
index a251ac7..c1c46cc 100644
--- 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
--- 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;