X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FTTParser.pm;h=e088124684d96f12ee68bb9b4ecd4a4da3024e98;hb=d06c2319828608071f135759b662f5899f8c4a61;hp=2ea31a64e24a75bec0fbf18533324ccc68646284;hpb=18bb9c22100ba810944a1341a891bc5b2e765255;p=koha_gimpoz

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