View | Details | Raw Unified | Return to bug 15687
Collapse All | Expand All

(-)a/misc/translator/xgettext.pl (-8 / +7 lines)
Lines 48-61 sub token_negligible_p { Link Here
48
    my($x) = @_;
48
    my($x) = @_;
49
    my $t = $x->type;
49
    my $t = $x->type;
50
    return !$extract_all_p && (
50
    return !$extract_all_p && (
51
	    $t == C4::TmplTokenType::TEXT? string_negligible_p( $x->string ):
51
	    $t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) :
52
	    $t == C4::TmplTokenType::DIRECTIVE? 1:
52
	    $t == C4::TmplTokenType::DIRECTIVE() ? 1 :
53
	    $t == C4::TmplTokenType::TEXT_PARAMETRIZED
53
	    $t == C4::TmplTokenType::TEXT_PARAMETRIZED()
54
		&& join( '', map { my $t = $_->type;
54
		&& join( '', map { my $t = $_->type;
55
			$t == C4::TmplTokenType::DIRECTIVE?
55
			$t == C4::TmplTokenType::DIRECTIVE() ?
56
				'1': $t == C4::TmplTokenType::TAG?
56
				'1' : $t == C4::TmplTokenType::TAG() ?
57
					'': token_negligible_p( $_ )?
57
					'' : token_negligible_p( $_ ) ?
58
					'': '1' } @{$x->children} ) eq '' );
58
					'' : '1' } @{$x->children} ) eq '' );
59
}
59
}
60
60
61
###############################################################################
61
###############################################################################
62
- 

Return to bug 15687