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

(-)a/C4/TTParser.pm (-1 / +4 lines)
Lines 79-84 sub text { Link Here
79
    my $work     = shift;       # original text
79
    my $work     = shift;       # original text
80
    my $is_cdata = shift;
80
    my $is_cdata = shift;
81
81
82
    if ($is_cdata) {
83
        $work = "<![CDATA[$work]]>";
84
    }
85
82
    # If there is a split template toolkit tag
86
    # If there is a split template toolkit tag
83
    if ( $work =~ m/^(?:(?!\[%).)*?%\]/s ) {
87
    if ( $work =~ m/^(?:(?!\[%).)*?%\]/s ) {
84
        my @strings = ($&);
88
        my @strings = ($&);
85
- 

Return to bug 8937