]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
The current op is always non-null in our vmg_opclass()
authorVincent Pit <vince@profvince.com>
Sun, 1 Mar 2009 18:13:52 +0000 (19:13 +0100)
committerVincent Pit <vince@profvince.com>
Sun, 1 Mar 2009 18:13:52 +0000 (19:13 +0100)
Magic.xs

index 14a33f4a12a5cb7419ebc847b782dd402958f445..1c25a9bc7dca6e47ff61a090fff406ee0de13367 100644 (file)
--- 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;