perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Markus Wichitill <ma...@gmx.de>
Subject Re: [mp2] t/modperl/util hangs on Linux
Date Mon, 13 Dec 2004 23:30:04 GMT
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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message