From: Jeff Okamoto <okamoto@hpcc123.corp.hp.com>
Date: Tue, 26 Nov 1996 02:15:26 +0000 (-0800)
Subject: HP patches didn't make it into _08
X-Git-Tag: accepted/trunk/20130322.191538~38041^2~639
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d43d69ec259e29a20b4d77e3022ac488591d6e9a;p=platform%2Fupstream%2Fperl.git

HP patches didn't make it into _08

There are two fixes for HP-UX that didn't make it into the _08 release.  I'd
like to ask that they be added into the _09 release.  The first is the patch
to dl_hpux.xs that adds some debugging options.  The second was a new hints
file.  Here's the patch, and I'll send the hints file under separate cover.

p5p-msgid: <199611252114.AA245686448@hpcc123.corp.hp.com>
private-msgid: <199611260215.AA100414526@hpcc123.corp.hp.com>
---

diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs
index 975d26d..3d6b2d3 100644
--- a/ext/DynaLoader/dl_hpux.xs
+++ b/ext/DynaLoader/dl_hpux.xs
@@ -48,6 +48,10 @@ dl_load_file(filename)
 	bind_type = BIND_IMMEDIATE;
     else
 	bind_type = BIND_DEFERRED;
+#ifdef DEBUGGING
+    if (dl_debug)
+	bind_type |= BIND_VERBOSE;
+#endif /* DEBUGGING */
 
     max = AvFILL(dl_resolve_using);
     for (i = 0; i <= max; i++) {