From: Vincent Pit <vince@profvince.com>
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<protocol_version>
 
 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</parse>.
 
 =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;
 }