From: rafl <rafl@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sun, 12 Oct 2008 14:25:52 +0000 (+0000)
Subject: Remove unused vars.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4802650c4515946eefe73e8d6410df2e838f4c14;p=p5sagit%2FDevel-Declare.git

Remove unused vars.

git-svn-id: http://dev.catalyst.perl.org/repos/bast/Devel-Declare/1.000/trunk@4914 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Declare.xs b/Declare.xs
index 41488e5..3ad99ad 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -108,7 +108,6 @@ char* dd_get_linestr(pTHX) {
 
 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_old_ck_const)(pTHX_ OP*op);
 
 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 */