From 5a6cdd088fda0f9280dbb5cb343552e10237fa8d Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Wed, 15 Feb 2012 13:54:44 +0100 Subject: [PATCH 1/2] Revert "Bug 5327: Patch removes unneeded self=shift from TTParser::unshift_token" This reverts commit d0bb27bf230fb06d4ad263574df811bb67d5d4a2. see : http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=5327#c171 --- C4/TTParser.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/C4/TTParser.pm b/C4/TTParser.pm index 2ea31a64e2..e088124684 100755 --- 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; } From 4fa0e4c88ca40cceeb072bc55f3194a09295e185 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Wed, 15 Feb 2012 13:55:32 +0100 Subject: [PATCH 2/2] Revert "Added coverage to unit test for TTParser" This reverts commit 77c430717681ad299917db85c878db8f21f2e4dc. --- xt/tt_valid.t | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/xt/tt_valid.t b/xt/tt_valid.t index 97725ee370..ae2e2e5581 100755 --- a/xt/tt_valid.t +++ b/xt/tt_valid.t @@ -19,7 +19,7 @@ use warnings; use strict; -use Test::More tests => 2; +use Test::More tests => 1; use File::Find; use Cwd; use C4::TTParser; @@ -56,10 +56,6 @@ ok( !@files_with_directive_in_tag, "TT syntax: not using TT directive within HTM } @files_with_directive_in_tag ) ); -my $testtoken = 0; -C4::TTParser::unshift_token($testtoken); -my $testtokenagain = C4::TTParser::next_token(); -is( $testtoken, $testtokenagain, "Token received same as original put on stack"); =head1 NAME