From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 5 Dec 2008 06:20:28 +0000 (+0000)
Subject: Don't check if the xs version of get_method_map is called as a class method.
X-Git-Tag: 0.71_02~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ecaf79feff226b0d3bcd95ae319126835635f28;hp=0e0b5b8db1cb6435da1da60300bae27c47d81640;p=gitmo%2FClass-MOP.git

Don't check if the xs version of get_method_map is called as a class method.

The pure perl version doesn't do that either.
---

diff --git a/MOP.xs b/MOP.xs
index b116381..b334fd6 100644
--- a/MOP.xs
+++ b/MOP.xs
@@ -453,10 +453,6 @@ get_method_map(self)
         SV* const cache_flag = *hv_fetchs((HV*)SvRV(self), "_package_cache_flag", TRUE);
         SV* const map_ref    = *hv_fetchs((HV*)SvRV(self), "methods", TRUE);
     PPCODE:
-        if ( ! SvRV(self) ) {
-            die("Cannot call get_method_map as a class method");
-        }
-
         /* in  $self->{methods} does not yet exist (or got deleted) */
         if ( ! (SvROK(map_ref) && SvTYPE(SvRV(map_ref)) == SVt_PVHV) ) {
             SV* new_map_ref = newRV_noinc((SV*)newHV());