tap/perl: be more portable to older TAP::Parser versions

* lib/tap-driver.pl (start): Do not call the `ignore_exit' method
on our TAP parser: it is not supported in older TAP::Parser
versions (e.g., 3.10), and is not really required by our usage of
the parser object.

diff --git a/ChangeLog b/ChangeLog
index 50d458c1ee5dc7462898544cbfff6cbf0ffbf072..675e580242310c29330554fb1f9f01ecf024fe28 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2011-09-07  Stefano Lattarini  <stefano.lattarini@gmail.com>
+
+       tap/perl: be more portable to older TAP::Parser versions
+       * lib/tap-driver.pl (start): Do not call the `ignore_exit' method
+       on our TAP parser: it is not supported in older TAP::Parser
+       versions (e.g., 3.10), and is not really required by our usage of
+       the parser object.
+
 2011-09-06  Stefano Lattarini  <stefano.lattarini@gmail.com>
 
        tests: fix spurious failures due to ignored signals

diff --git a/lib/tap-driver.pl b/lib/tap-driver.pl
index 2c328d99a7aa789bf3993c4ba63ff821b7160808..dac9f3c59faa9dec93f81795cfdba13387b0c211 100755 (executable)
--- a/lib/tap-driver.pl
+++ b/lib/tap-driver.pl
@@ -32,7 +32,7 @@ use strict;
 use Getopt::Long ();
 use TAP::Parser;
 
-my $VERSION = '2011-08-25.10'; # UTC
+my $VERSION = '2011-09-07.15'; # UTC
 
 my $ME = "tap-driver.pl";
 
@@ -257,7 +257,6 @@ sub start (@)
   open STDOUT, ">&LOG" or die "$ME: redirecting stdout: $!\n";
   open STDERR, ">&LOG" or die "$ME: redirecting stderr: $!\n";
   $parser = TAP::Parser->new ({ exec => \@_, merge => $cfg{merge} });
-  $parser->ignore_exit(1) if $cfg{"ignore-exit"};
 }
 
 sub get_test_exit_message ()