Diff of /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm

Parent Directory | Revision Log | Patch

--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	2005/01/28 02:31:29	148840
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	2005/01/28 02:43:10	148841
@@ -33,6 +33,16 @@ my $phpclient = eval {
   Test::Harness->VERSION(2.38);
   push @ISA, qw(Test::Harness::Straps);
   $Test::Harness::Strap = __PACKAGE__->new;
+
+  # yes, this is ugly, ugly, ugly
+  $Test::Harness::Strap->{callback} = sub {
+    my($self, $line, $type, $totals) = @_;
+    print $line if $Test::Harness::Verbose;
+                                                                                                                             
+    my $meth = *Handlers{$type};
+    $meth->($self, $line, $type, $totals) if $meth;
+  };
+
   1;
 };