rendered paste body=== mro.c
==================================================================
--- mro.c (revision 30613)
+++ mro.c (local)
@@ -40,7 +40,7 @@
HvMROMETA(stash)->is_universal = 1;
}
- return newmeta;
+ return (struct mro_meta*)newmeta;
}
#if defined(USE_ITHREADS)
@@ -864,9 +864,10 @@
class_stash = gv_stashsv(classname, 0);
if(!class_stash) Perl_croak(aTHX_ "No such class: '%"SVf"'!", SVfARG(classname));
- HvMROMETA(class_stash)->is_universal
- ? XSRETURN_YES
- : XSRETURN_NO;
+ if(HvMROMETA(class_stash)->is_universal)
+ XSRETURN_YES;
+ else
+ XSRETURN_NO;
}
XS(XS_mro_get_global_sub_generation)