--- SAX/PurePerl.pm.orig 2006-05-08 12:09:51.000000000 -0400 +++ SAX/PurePerl.pm 2006-05-08 12:10:16.000000000 -0400 @@ -566,7 +566,8 @@ sub AttValue { unless length($data); if ($data =~ /^([^$quote]*)$quote/) { $reader->move_along(length($1) + 1); - return $value . $1; + $value .= $1; + last; } else { $value .= $data;