=head1 VERSION
-Version 1.13
+Version 1.19
=cut
-our $VERSION = '1.13';
+our $VERSION = '1.19';
=head1 DESCRIPTION
=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>.
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(@_),
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011 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.