X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FParser%2FXML.pm;h=d69b8fb24f582b535b92ea1e44aecb2537dcf9d2;hb=5dd4ffc1370138eb1e9501f82a69f98208e4c0ff;hp=bc8a4adf3a94a6775d0f152a71baee498746f721;hpb=cea977523ce9c4be865b97a0813a5e14cce873f9;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind/Parser/XML.pm b/lib/Test/Valgrind/Parser/XML.pm
index bc8a4ad..d69b8fb 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.13
+Version 1.17
 
 =cut
 
-our $VERSION = '1.13';
+our $VERSION = '1.17';
 
 =head1 DESCRIPTION
 
@@ -25,7 +25,9 @@ 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,7 +37,7 @@ 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(@_),
@@ -67,7 +69,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009,2010,2011 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015 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.