perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r280499 - /perl/Apache-Test/trunk/lib/Apache/TestConfig.pm
Date Tue, 13 Sep 2005 04:50:40 GMT
Author: pgollucci
Date: Mon Sep 12 21:50:38 2005
New Revision: 280499

URL: http://svn.apache.org/viewcvs?rev=280499&view=rev
Log:
Add ldd/otool output to bug reports

Modified:
    perl/Apache-Test/trunk/lib/Apache/TestConfig.pm

Modified: perl/Apache-Test/trunk/lib/Apache/TestConfig.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/TestConfig.pm?rev=280499&r1=280498&r2=280499&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestConfig.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestConfig.pm Mon Sep 12 21:50:38 2005
@@ -1837,6 +1837,21 @@
         $command = "$httpd -V";
         $cfg .= "\n*** $command\n";
         $cfg .= qx{$command};
+
+        my $command;
+        if (OSX) {
+            my $otool = Apache::TestConfig::which('otool');
+            $command = "$otool -L $httpd" if $otool;
+        }
+        elsif (!WIN32) {
+            my $ldd = Apache::TestConfig::which('ldd');
+            $command = "$ldd $httpd" if $ldd;
+        }
+
+        if ($command) {
+            $cfg .= "\n*** $command\n";
+            $cfg .= qx{$command};
+        }
     } 
     else {
         $cfg .= "\n\n*** The httpd binary was not found\n";



Mime
View raw message