X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FParser%2FXML.pm;h=d5755714852dc72bf36e57fd1e8ff817fddc48f1;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=4c28c20a5000b3a3b03d585fce33de96c176770b;hpb=b9e3e9311a415d0fa583815b40ba5af0b4a3e3a8;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Parser/XML.pm b/lib/Test/Valgrind/Parser/XML.pm
index 4c28c20..d575571 100644
--- a/lib/Test/Valgrind/Parser/XML.pm
+++ b/lib/Test/Valgrind/Parser/XML.pm
@@ -9,11 +9,11 @@ Test::Valgrind::Parser::XML - Parse valgrind output as an XML stream.
 
 =head1 VERSION
 
-Version 1.02
+Version 1.19
 
 =cut
 
-our $VERSION = '1.02';
+our $VERSION = '1.19';
 
 =head1 DESCRIPTION
 
@@ -21,11 +21,13 @@ This is a base class for L<Test::Valgrind::Parser> objects that can parse C<valg
 
 =cut
 
-use base qw/Test::Valgrind::Parser/;
+use base qw<Test::Valgrind::Parser>;
 
 =head1 METHODS
 
-=head2 C<args $session, $fh>
+=head2 C<args>
+
+    my @args = $tvp->args($session, $fh);
 
 Returns the arguments needed to tell C<valgrind> to print in XML to the filehandle C<$fh>.
 
@@ -35,10 +37,11 @@ sub args {
  my $self = shift;
  my ($session, $fh) = @_;
 
- my $fd_opt = $session->version ge '3.5.0' ? '--xml-fd=' : '--log-fd=';
+ my $fd_opt = $session->version >= '3.5.0' ? '--xml-fd=' : '--log-fd=';
 
  return (
   $self->SUPER::args(@_),
+  '--xml=yes',
   $fd_opt . fileno($fh),
  );
 }
@@ -66,7 +69,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015,2016 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.