[PATCH] output of Test::Harness changed

--=_6y4br1j57h4w
Content-Type: text/plain;
	charset=ISO-8859-1;
	DelSp="Yes";
	format="flowed"
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

The output of Test::Harness changed.

Without this patch the result FAIL(x) or PASS-so-far is displayed  
instead of FAIL.

Old output:

Test Summary Report
-------------------
base/rs.t                                                      (Wstat:  
0 Tests: 28 Failed: 1)
   Failed test:  11
New output:

Test Summary Report
-------------------
base/rs                                                      (Wstat: 0  
Tests: 28 Failed: 1)
   Failed test:  11

(The filename changed - rs.t vs rs)


Still todo: add tests for the new output.



--=_6y4br1j57h4w
Content-Type: text/x-patch;
	charset=ISO-8859-1;
	name="patch_harness_output"
Content-Disposition: attachment;
	filename="patch_harness_output"
Content-Transfer-Encoding: 7bit

diff -Naur old/lib/Test/Smoke/Smoker.pm new/lib/Test/Smoke/Smoker.pm
--- old/lib/Test/Smoke/Smoker.pm	2008-04-18 19:04:32.000000000 +0200
+++ new/lib/Test/Smoke/Smoker.pm	2008-08-08 19:21:25.000000000 +0200
@@ -841,7 +841,7 @@
     my $output = join "", grep defined $_ => map {
         my $line = $_;
 
-        my( $tname ) = $line =~ /^\s*(.+\.t)\s+\(Wstat/;
+        my( $tname ) = $line =~ /^\s*(.+(?:\.t)?)\s+\(Wstat/;
         my( $failed ) = $line =~ /$harness3_re/x;
         my( $parse_error ) = $line =~ /^  Parse errors: (.+)/;
 

--=_6y4br1j57h4w--