From: Vincent Pit Date: Sat, 26 Sep 2009 09:30:28 +0000 (+0200) Subject: Reset the ->protocol_version before and after parsing X-Git-Tag: v1.11~11 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=592b66b1302df332a2a1731e8cab6e6765fe54fb;p=perl%2Fmodules%2FTest-Valgrind.git Reset the ->protocol_version before and after parsing --- diff --git a/lib/Test/Valgrind/Parser/XML/Twig.pm b/lib/Test/Valgrind/Parser/XML/Twig.pm index f3e268f..ff72c30 100644 --- a/lib/Test/Valgrind/Parser/XML/Twig.pm +++ b/lib/Test/Valgrind/Parser/XML/Twig.pm @@ -50,6 +50,7 @@ sub stash { shift->{Stash} } =head2 C The version of the protocol that the stream is currently conforming to. +It is reset before and after the parsing phase, so it's effectively only available from inside L. =cut @@ -71,9 +72,13 @@ sub start { sub parse { my ($self, $sess, $fh) = @_; + $self->protocol_version(undef); + $self->XML::Twig::parse($fh); $self->purge; + $self->protocol_version(undef); + return; }