Markus Wichitill wrote:
Stas Bekman wrote:

may be because it uses #define rather than a wrapper it doesn't see that symbol at compile time (bizarre!). How about this (replacing define with real func)?

Index: xs/ModPerl/Util/ModPerl__Util.h
===================================================================
--- xs/ModPerl/Util/ModPerl__Util.h     (revision 111732)
+++ xs/ModPerl/Util/ModPerl__Util.h     (working copy)
@@ -13,14 +13,19 @@
  * limitations under the License.
  */

+static SV *current_perl_id()
+{
 #ifdef USE_ITHREADS
-#define mpxs_ModPerl__Util_current_perl_id() \
-    newSVpvf("0x%lx", (unsigned long)aTHX)
+    dTHX;
+    return newSVpvf("0x%lx", (unsigned long)aTHX);
 #else
-#define mpxs_ModPerl__Util_current_perl_id() \
-    newSVpvf("0x%lx", 0)
+    return newSVpvf("0x%lx", 0);
 #endif
+}

+#define mpxs_ModPerl__Util_current_perl_id current_perl_id
+
+
 static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items,
                                                  SV **MARK, SV **SP)
 {


Doesn't work either.

Really? Then I'm not sure what's wrong here.

Could you check some other perl symbols in Util.so and other .so modules? to check other examples?

As usual if I knew how to reproduce that I'd have been much more useful at resolving this.

I guess the only difference I see from your setup is that I use perl with DEBUGGING and gcc 3.4.1.

--
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to