316         if ($data =~ /^(.*?)\]\]>/s) {

   316         if ($data =~ /^(.*?)\]\]>/s) {

   317             my $chars = $1;

   317             my $chars = $1;

   318             $reader->move_along(length($chars) + 3);

   318             $reader->move_along(length($chars) + 3);

   319             $self->characters({Data => $chars});

   319             $self->characters({Data => $chars});

   320             last;

   320             last;

   321         }

   327         }

   322         else {

   328         else {

   323             $self->characters({Data => $data});

   329             $self->characters({Data => $data});

   324             $reader->move_along(length($data));

   330             $reader->move_along(length($data));

   325             $data = $reader->data;

   331             $data = $reader->data;