On Thu, 17 Mar 2005 17:39:21, Dominique Quatravaux <[EMAIL PROTECTED]> wrote: > For the record I use the following dubious hack as an interim measure: > > sub modperl_major_version { > ~ use DynaLoader (); > ~ return 1 if DynaLoader::dl_find_symbol_anywhere("XS_Apache_define"); > ~ return 2 if > DynaLoader::dl_find_symbol_anywhere("XS_ModPerl__Util_exit"); > ~ return undef; > }
I have a function with almost exactly the same name, but I'm stripping the version out of the environment variable. I'd also like to see a "cleaner" way to do this. The DynaLoader method is not particularly reassuring... :) -John