# HG changeset patch
# User wizard
# Date 1271630298 -14400
# Node ID 52eeec77504b2e2398ffe3367007c022d692934a
# Parent  190c794a41aeb6c3d586c9007520942f05c5666a
TAP fixes

diff -r 190c794a41ae -r 52eeec77504b Lib/IMPL/Test/TAPListener.pm
--- a/Lib/IMPL/Test/TAPListener.pm	Fri Apr 16 16:33:11 2010 +0400
+++ b/Lib/IMPL/Test/TAPListener.pm	Mon Apr 19 02:38:18 2010 +0400
@@ -58,7 +58,7 @@
             $result->State == IMPL::Test::Result::SUCCESS ?
             "ok $n " . join("\n# ", split(/\n/, $result->Name) )
                 :
-            "not ok $n " . (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? '#SKIP: ' : '') . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
+           (eval { $result->Exception->isa('IMPL::Test::SkipException') } ? "ok $n #SKIP: " : "not ok $n ") . join("\n# ", split(/\n/, $result->Name.": ".$result->Exception || '') )
         ),"\n";
         
 }
diff -r 190c794a41ae -r 52eeec77504b _test/temp.pl
--- a/_test/temp.pl	Fri Apr 16 16:33:11 2010 +0400
+++ b/_test/temp.pl	Mon Apr 19 02:38:18 2010 +0400
@@ -1,7 +1,3 @@
 #!/usr/bin/perl
 
-my @data = (1,2,3);
-
-$data[4] = 4;
-
-print @data;
\ No newline at end of file
+warn join "\n", keys %{__PACKAGE__.'::'};
\ No newline at end of file