# HG changeset patch
# User Dario Sestito <darios@symbian.org>
# Date 1258134492 0
# Node ID 2892c791ce6caa70a0127965001948390014ad75
# Parent  d00048f1b036c8e4917b9ed6df113142c8948b98
Fix XML-SAX bug #43174 (see http://rt.cpan.org/Public/Bug/Display.html?id=43174)

diff -r d00048f1b036 -r 2892c791ce6c common/tools/raptor/XML/SAX/PurePerl.pm
--- a/common/tools/raptor/XML/SAX/PurePerl.pm	Fri Nov 13 17:47:50 2009 +0000
+++ b/common/tools/raptor/XML/SAX/PurePerl.pm	Fri Nov 13 17:48:12 2009 +0000
@@ -319,6 +319,12 @@
             $self->characters({Data => $chars});
             last;
         }
+        elsif ($data =~ /(.*?)\]+$/s) {
+            my $chars = $1;
+            $reader->move_along(length($chars));
+            $self->characters({Data => $chars});
+            $data = $reader->data(3);
+        }
         else {
             $self->characters({Data => $data});
             $reader->move_along(length($data));