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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-10-12 15:25:52 +0100 (Sun, 12 Oct 2008)
New Revision: 4914

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

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-11 17:07:00 UTC (rev 4913)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-12 14:25:52 UTC (rev 4914)
@@ -108,7 +108,6 @@
 
 void dd_set_linestr(pTHX_ char* new_value) {
   int new_len = strlen(new_value);
-  char* old_linestr = SvPVX(PL_linestr);
 
   if (SvLEN(PL_linestr) < new_len) {
     croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
@@ -284,7 +283,6 @@
 
 STATIC OP *dd_ck_const(pTHX_ OP *o) {
   int dd_flags;
-  char* s;
   char* name;
 
   o = dd_old_ck_const(aTHX_ o); /* let the original do its job */