Author: stas Date: Tue Nov 23 16:20:51 2004 New Revision: 106362 Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm Log: clean whitespace
Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm?view=diff&rev=106362&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm&r1=106361&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm&r2=106362 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm (original) +++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm Tue Nov 23 16:20:51 2004 @@ -83,27 +83,27 @@ my $core_dump; sub core_dump { my $self = shift; - + $core_dump = ""; - + if (eval { require Devel::GDB }) { find(\&dump_core_file, 't') } - + $core_dump || ' [CORE TRACE COMES HERE]'; } sub dump_core_file { return unless /^core(\.\d+)?$/; - + my $core = $_; my $gdb = new Devel::GDB (); my $test_config = Apache::TestConfig->new({thaw=>1}); my $httpd = $test_config->{vars}->{httpd}; - + return unless defined $httpd; - - $core_dump .= join '', + + $core_dump .= join '', $gdb->get("file $httpd"), $gdb->get('sharedlibrary'), $gdb->get("core $core"),