$t->{twig_chunk_number} = 0 if !defined($elt->{cdata}); $elt->{cdata}.= $t->{twig_stored_spaces}.$string unless( $t->{twig_keep_encoding} && defined($elt->{cdata}) && length($elt->{cdata})>1024 && ++$t->{twig_chunk_number}==1) ; # fixes a bug in XML::Parser for long CDATA #### $elt->{cdata}.= $t->{twig_stored_spaces}.$string unless $t->{twig_skip_next_chunk}; # fixes a bug in XML::Parser for long CDATA if ( $t->{twig_keep_encoding} && defined($string) && length($string)>1024) { $t->{twig_skip_next_chunk} = 1; } else { $t->{twig_skip_next_chunk} = 0; }