svn commit: r280495 - /perl/modperl/trunk/lib/ModPerl/Config.pm

[pgollucci]

Author: pgollucci
Date: Mon Sep 12 21:42:31 2005
New Revision: 280495

URL: http://svn.apache.org/viewcvs?rev=280495&view=rev
Log:
Add a DARWIN constant and add ldd/otool -L output to mp2bug reports


Modified:
    perl/modperl/trunk/lib/ModPerl/Config.pm

Modified: perl/modperl/trunk/lib/ModPerl/Config.pm
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/Config.pm?rev=280495&r1=280494&r2=280495&view=diff
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/Config.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/Config.pm Mon Sep 12 21:42:31 2005
@@ -21,6 +21,7 @@
 use File::Spec ();
 
 use constant WIN32 => Apache2::Build::WIN32;
+use constant DARWIN => Apache2::Build::DARWIN;
 
 sub as_string {
     my $build = Apache2::Build->build_config;
@@ -53,6 +54,22 @@
         $command = "$httpd -V";
         $cfg .= "\n\n*** $command\n";
         $cfg .= qx{$command};
+
+        my $command;
+
+        if (DARWIN) {
+            my $otool = Apache::TestConfig::which('otool');
+            $command = " -L $otool" 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";