X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs%2FMOP.xs;h=f7aeb697c7a6449f26fb3d4ede9949d8017b7e9e;hb=7b9e9f6e8f2cb5c70654b9787f7a27adbc75f629;hp=959df7a66ac100883d7ea161d19ee436c660517f;hpb=f6ca0704cec6026ae54a9288d4130c2042af53f2;p=gitmo%2FClass-MOP.git diff --git a/xs/MOP.xs b/xs/MOP.xs index 959df7a..f7aeb69 100644 --- a/xs/MOP.xs +++ b/xs/MOP.xs @@ -50,9 +50,6 @@ get_code_info(coderef) mPUSHs(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