X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=814a6af19004a662f7e2906ebfaecf5d4af3c9cb;hb=077519905e1c99ca8cf60cca6825fddce7696dff;hp=14a33f4a12a5cb7419ebc847b782dd402958f445;hpb=ef0ca84c466fb43ed99555a0a662135a9913b5fe;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 14a33f4..814a6af 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -229,8 +229,10 @@ STATIC const char *const vmg_opclassnames[] = {
 };
 
 STATIC opclass vmg_opclass(const OP *o) {
+#if 0
  if (!o)
   return OPc_NULL;
+#endif
 
  if (o->op_type == 0)
   return (o->op_flags & OPf_KIDS) ? OPc_UNOP : OPc_BASEOP;
@@ -335,8 +337,7 @@ STATIC U16 vmg_gensig(pTHX) {
  char buf[8];
  dMY_CXT;
 
- if (HvKEYS(MY_CXT.wizards) >= SIG_NBR)
-  croak(vmg_toomanysigs);
+ if (HvKEYS(MY_CXT.wizards) >= SIG_NBR) croak(vmg_toomanysigs);
 
  do {
   sig = SIG_NBR * Drand01() + SIG_MIN;