Author: stas Date: Fri Dec 10 20:04:57 2004 New Revision: 111573 URL: http://svn.apache.org/viewcvs?view=rev&rev=111573 Log: new API ModPerl::Util::current_perl_id();
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod Modified: perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod Url: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod?view=diff&rev=111573&p1=perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod&r1=111572&p2=perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod&r2=111573 ============================================================================== --- perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod (original) +++ perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/Util.pod Fri Dec 10 20:04:57 2004 @@ -20,7 +20,9 @@ # removes a stash (.so, %INC{$stash}, etc.) as best as it can ModPerl::Util::unload_package($stash); - + + # current perl's address (0x92ac760 or 0x0 under non-threaded perl) + ModPerl::Util::current_perl_id(); @@ -58,6 +60,31 @@ =item since: 1.99_12 =back + + + + + + +=head2 C<current_perl_id> + +Return the memory address of the perl interpreter + + $perl_id = ModPerl::Util::current_perl_id(); + +=over 4 + +=item ret: C<$perl_id> ( string ) + +Under threaded perl returns something like: C<0x92ac760> + +Under non-thread perl returns C<0x0> + +=item since: 1.99_18 + +=back + +Mainly useful for debugging applications running under threaded-perl. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
