--- lib/Test/Harness.pm.orig	2010-01-19 23:47:21.000000000 +0300
+++ lib/Test/Harness.pm	2010-01-24 15:39:44.000000000 +0300
@@ -9,7 +9,8 @@
 
 use TAP::Harness              ();
 use TAP::Parser::Aggregator   ();
-use TAP::Parser::Source::Perl ();
+use TAP::Parser               ();
+use TAP::Parser::SourceHandler::Perl ();
 
 use TAP::Parser::Utils qw( split_shell );