From 2593ff73bfb1430194de1721b2b3055c880c7c31 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Thu, 28 Jan 2016 09:32:11 +0100 Subject: [PATCH] Bug 15687: Fix xgettext.pl syntax errors Signed-off-by: Jonathan Druart --- misc/translator/xgettext.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl index 504dc9f..0b5e6d8 100755 --- a/misc/translator/xgettext.pl +++ b/misc/translator/xgettext.pl @@ -48,14 +48,14 @@ sub token_negligible_p { my($x) = @_; my $t = $x->type; return !$extract_all_p && ( - $t == C4::TmplTokenType::TEXT? string_negligible_p( $x->string ): - $t == C4::TmplTokenType::DIRECTIVE? 1: - $t == C4::TmplTokenType::TEXT_PARAMETRIZED + $t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) : + $t == C4::TmplTokenType::DIRECTIVE() ? 1 : + $t == C4::TmplTokenType::TEXT_PARAMETRIZED() && join( '', map { my $t = $_->type; - $t == C4::TmplTokenType::DIRECTIVE? - '1': $t == C4::TmplTokenType::TAG? - '': token_negligible_p( $_ )? - '': '1' } @{$x->children} ) eq '' ); + $t == C4::TmplTokenType::DIRECTIVE() ? + '1' : $t == C4::TmplTokenType::TAG() ? + '' : token_negligible_p( $_ ) ? + '' : '1' } @{$x->children} ) eq '' ); } ############################################################################### -- 2.1.0