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.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
