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

[pgollucci]

Author: pgollucci
Date: Tue Sep 13 20:03:02 2005
New Revision: 280748

URL: http://svn.apache.org/viewcvs?rev=280748&view=rev
Log:
use the now functionalized ldd_as_string from A-T

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=280748&r1=280747&r2=280748&view=diff
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/Config.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/Config.pm Tue Sep 13 20:03:02 2005
@@ -21,7 +21,6 @@
 use File::Spec ();
 
 use constant WIN32 => Apache2::Build::WIN32;
-use constant DARWIN => Apache2::Build::DARWIN;
 
 sub as_string {
     my $build = Apache2::Build->build_config;
@@ -55,21 +54,7 @@
         $cfg .= "\n\n*** $command\n";
         $cfg .= qx{$command};
 
-        my $command;
-
-        if (DARWIN) {
-            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};
-        }
+        $cfg .= Apache::TestConfig::ldd_as_string($httpd);
     } 
     else {
         $cfg .= "\n\n*** The httpd binary was not found\n";