#define DD_AM_LEXING DD_AM_LEXING_CHECK
#endif
-static OP *previous_op = NULL;
-
/* thing that decides whether we're dealing with a declarator */
int dd_is_declarator(pTHX_ char* name) {
/* $declarators{$current_package_name} */
if (!HvNAME(PL_curstash))
- return -1;
+ return -1;
is_declarator_pack_ref = hv_fetch(is_declarator, HvNAME(PL_curstash),
strlen(HvNAME(PL_curstash)), FALSE);
/* requires SvIOK as well as TRUE since flags not being an int is useless */
if (!is_declarator_flag_ref
- || !SvIOK(*is_declarator_flag_ref)
+ || !SvIOK(*is_declarator_flag_ref)
|| !SvTRUE(*is_declarator_flag_ref))
return -1;
case OP_MATCH:
case OP_SUBST:
case OP_TRANS:
+ case OP_BACKTICK:
+ case OP_STRINGIFY:
return o;
break;
default:
break;
}
+
dd_linestr_callback(aTHX_ "const", name);
return o;