perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@liquidation.com>
Subject [PATCH] add ldd/otool output to bug reports
Date Fri, 09 Sep 2005 09:12:42 GMT
For both mp2bug and A-T

Question, why does A-T call it OSX and mp2 call it DARWIN ... should we sync one way or the
other ?


Index: lib/ModPerl/Config.pm
===================================================================
--- lib/ModPerl/Config.pm       (revision 279736)
+++ lib/ModPerl/Config.pm       (working copy)
@@ -18,9 +18,11 @@

  use Apache2::Build ();
  use Apache::TestConfig ();
+use Apache::TestConfigData ();
  use File::Spec ();

  use constant WIN32 => Apache2::Build::WIN32;
+use constant DARWIN => Apache2::Build::WIN32;

  sub as_string {
      my $build = Apache2::Build->build_config;
@@ -53,8 +55,19 @@
          $command = "$httpd -V";
          $cfg .= "\n\n*** $command\n";
          $cfg .= qx{$command};
-    }
-    else {
+
+        # Add the dynamic link information
+        # For now, assume its in our path... its there a better way ?
+        if (DARWIN) {
+            $command = "otool $httpd";
+        }
+        else {
+            $command = "ldd $httpd";
+        }
+
+        $cfg .= "\n*** $command\n";
+        $cfg .= qx{$command};
+    } else {
          $cfg .= "\n\n*** The httpd binary was not found\n";
      }

Index: Apache-Test/lib/Apache/TestConfig.pm
===================================================================
--- Apache-Test/lib/Apache/TestConfig.pm        (revision 279734)
+++ Apache-Test/lib/Apache/TestConfig.pm        (working copy)
@@ -1837,7 +1837,19 @@
          $command = "$httpd -V";
          $cfg .= "\n*** $command\n";
          $cfg .= qx{$command};
-    }
+
+        # Add the dynamic link information
+        # For now, assume its in our path... its there a better way ?
+        if (OSX) {
+            $command = "otool $httpd";
+        }
+        else {
+            $command = "ldd $httpd";
+        }
+
+        $cfg .= "\n*** $command\n";
+        $cfg .= qx{$command};
+    }
      else {
          $cfg .= "\n\n*** The httpd binary was not found\n";
      }

-- 
END
-----------------------------------------------------------------------------
Philip M. Gollucci
Senior Developer - Liquidity Services Inc.
Phone:  202.558.6268 (Direct)
Cell:   301.254.5198
E-Mail: pgollucci@liquidation.com
Web:    http://www.liquidityservicesinc.com
         http://www.liquidation.com
         http://www.uksurplus.com
         http://www.govliquidation.com
         http://www.gowholesale.com

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message