From eb8f99c37938bc2106843e589f3cce80602a33b8 Mon Sep 17 00:00:00 2001
From: Chris Hall <chrish@catalyst.net.nz>
Date: Fri, 9 Dec 2011 11:04:19 +1300
Subject: [PATCH] Bug 5327: Patch removes unneeded self=shift from
 TTParser::unshift_token

Removed  unneeded self=shift from unshift_token
(as peek and next do not take a self, makes interface more consistent)

http://bugs.koha-community.org/show_bug.cgi?id=5327
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
(cherry picked from commit 18bb9c22100ba810944a1341a891bc5b2e765255)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
---
 C4/TTParser.pm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/C4/TTParser.pm b/C4/TTParser.pm
index e088124684d..2ea31a64e24 100755
--- a/C4/TTParser.pm
+++ b/C4/TTParser.pm
@@ -22,7 +22,6 @@ sub next_token{
 
 #unshift token back on @tokens
 sub unshift_token{
-    my $self = shift;
     unshift @tokens, shift;
 }