perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject Re: [mp2] t/modperl/util hangs on Linux
Date Mon, 13 Dec 2004 23:19:34 GMT
Markus Wichitill wrote:
> Stas Bekman wrote:
> 
>> So mod_perl.so has loaded the right libperl.so which has Perl_newSVpvf 
>> resolved, Util.so shouldn't complain then, no? It doesn't for me 
>> (linux here too).
>>
>> Is it possible that somehow Apache tries to load by itself? (httpd.conf?)
>> /usr/src/modperl-2.0/blib/arch/auto/ModPerl/Util/Util.so
>> Otherwise it should be a Dynaloader reporting the failure and not httpd
> 
> 
> I don't see anything in httpd.conf. I only see "use ModPerl::Util" in 
> t/conf/post_config_startup.pl and various test modules.

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)
  {

this is just a quick hack so you don't need to rebuild anything, but just 
run make. This is not how it's going to be in the final version.

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

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


Mime
View raw message