From: Florian Ragwitz Date: Thu, 9 Apr 2009 00:57:52 +0000 (+0000) Subject: Remove unused variable. X-Git-Tag: 0.005000~9 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=commitdiff_plain;h=48ee5c99631eebd41576006e96e22750bdd43ebb Remove unused variable. --- diff --git a/Declare.xs b/Declare.xs index 69e9f6d..d29488d 100644 --- a/Declare.xs +++ b/Declare.xs @@ -36,8 +36,6 @@ static int in_declare = 0; #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) { @@ -75,7 +73,7 @@ int dd_is_declarator(pTHX_ char* name) { /* 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; @@ -352,6 +350,7 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) { default: break; } + dd_linestr_callback(aTHX_ "const", name); return o;