You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2004/11/24 01:20:52 UTC
svn commit: r106362 - /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestReport.pm
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"),