From 057a50b9ffdf7561432ad3821d5f5a5dbbf2da37 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Fri, 14 Jun 2013 22:26:47 +1000
Subject: [PATCH] tboffset hasn't been used since 7196fc2f

---
 toke.c | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/toke.c b/toke.c
index 05131b7..5ad89f1 100644
--- a/toke.c
+++ b/toke.c
@@ -8500,7 +8500,6 @@ Perl_yylex(pTHX)
 	  really_sub:
 	    {
 		char * const tmpbuf = PL_tokenbuf + 1;
-		SSize_t tboffset = 0;
 		expectation attrful;
 		bool have_name, have_proto;
 		const int key = tmp;
@@ -8531,8 +8530,6 @@ Perl_yylex(pTHX)
 
 		    PL_expect = XBLOCK;
 		    attrful = XATTRBLOCK;
-		    /* remember buffer pos'n for later force_word */
-		    tboffset = s - PL_oldbufptr;
 		    d = scan_word(s, tmpbuf, sizeof PL_tokenbuf - 1, TRUE,
 				  &len);
 #ifdef PERL_MAD
@@ -8586,7 +8583,6 @@ Perl_yylex(pTHX)
 #ifdef PERL_MAD
 		    PL_thistoken = subtoken;
 		    s = d;
-                    PERL_UNUSED_VAR(tboffset);
 #else
 		    if (format_name) {
                         start_force(PL_curforce);
-- 
1.8.3.1