Represent valgrind version numbers by their own class

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Parser / XML.pm

diff --git a/lib/Test/Valgrind/Parser/XML.pm b/lib/Test/Valgrind/Parser/XML.pm
index 41a09903d99bd71fa474842b2a0ca80ded4bd065..d69b8fb24f582b535b92ea1e44aecb2537dcf9d2 100644 (file)
--- a/lib/Test/Valgrind/Parser/XML.pm
+++ b/lib/Test/Valgrind/Parser/XML.pm
@@ -37,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(@_),