[Bast-commits] r5873 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-09 01:57:52 +0100 (Thu, 09 Apr 2009)
New Revision: 5873

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Remove unused variable.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:54:43 UTC (rev 5872)
+++ Devel-Declare/1.000/trunk/Declare.xs	2009-04-09 00:57:52 UTC (rev 5873)
@@ -36,8 +36,6 @@
 #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 @@
   /* 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 @@
     default:
       break;
   }
+
   dd_linestr_callback(aTHX_ "const", name);
 
   return o;