[tapx-dev] [commit][188] Fixed runtests -exec

[andy at hexten.net]

Revision: 188
Author:   andy
Date:     2007-07-16 18:18:34 +0100 (Mon, 16 Jul 2007)

Log Message:
-----------
Fixed runtests -exec

Modified Paths:
--------------
    trunk/Changes
    trunk/lib/TAP/Harness.pm

Modified: trunk/Changes
===================================================================
--- trunk/Changes	2007-07-16 08:37:48 UTC (rev 187)
+++ trunk/Changes	2007-07-16 17:18:34 UTC (rev 188)
@@ -5,6 +5,8 @@
       something to do with localisation of $1 et all I think.
     - Fixed use of three arg open in t/compat/test-harness-compat; was failing
       on 5.6.2.
+    - Fixed runtests --exec option. T::H wasn't passing the exec option to
+      T::P.
 
 0.52
     - Incorporate Schwern's investigations into TAP versions.

Modified: trunk/lib/TAP/Harness.pm
===================================================================
--- trunk/lib/TAP/Harness.pm	2007-07-16 08:37:48 UTC (rev 187)
+++ trunk/lib/TAP/Harness.pm	2007-07-16 17:18:34 UTC (rev 188)
@@ -707,12 +707,19 @@
 
 sub _get_parser_args {
     my ( $self, $test ) = @_;
-    my %args = ( source => $test );
+    my %args = ();
     my @switches = $self->lib if $self->lib;
     push @switches => $self->switches if $self->switches;
     $args{switches} = \@switches;
-    $args{spool}    = $self->_open_spool($test);
+    $args{spool}    = $self->_open_spool( $test );
     $args{merge}    = $self->merge;
+    $args{exec}     = $self->exec;
+    if ( my $exec = $self->exec ) {
+        $args{exec} = [ @$exec, $test ];
+    }
+    else {
+        $args{source} = $test;
+    }
     return \%args;
 }