Add comment referring people looking at is_class_loaded to the pure

Perl version

diff --git a/MOP.xs b/MOP.xs
index 07b2fb8..315213e 100644 (file)
--- a/MOP.xs
+++ b/MOP.xs
@@ -344,6 +344,9 @@ get_code_info(coderef)
             PUSHs(newSVpv(name, 0));
         }
 
+/* This is some pretty grotty logic. It _should_ be parallel to the
+   pure Perl version in lib/Class/MOP.pm, so if you want to understand
+   it we suggest you start there. */
 void
 is_class_loaded(klass=&PL_sv_undef)
     SV *klass