Merge remote-tracking branch 'origin/new/bug_5327'

diff --combined C4/TTParser.pm
index 2ea31a6,e088124..e088124
mode 100644,100755..100644
--- 1/C4/TTParser.pm
--- 2/C4/TTParser.pm
+++ b/C4/TTParser.pm
@@@ -22,6 -22,7 +22,7 @@@ sub next_token
  
  #unshift token back on @tokens
  sub unshift_token{
+     my $self = shift;
      unshift @tokens, shift;
  }