… | |
… | |
1318 | # all autoloaded methods reserve the complete glob, not just the method slot. |
1318 | # all autoloaded methods reserve the complete glob, not just the method slot. |
1319 | # due to bugs in perls method cache implementation. |
1319 | # due to bugs in perls method cache implementation. |
1320 | our @methods = qw(io timer time now now_update signal child idle condvar); |
1320 | our @methods = qw(io timer time now now_update signal child idle condvar); |
1321 | |
1321 | |
1322 | sub detect() { |
1322 | sub detect() { |
|
|
1323 | return $MODEL if $MODEL; # some programs keep references to detect |
|
|
1324 | |
1323 | local $!; # for good measure |
1325 | local $!; # for good measure |
1324 | local $SIG{__DIE__}; # we use eval |
1326 | local $SIG{__DIE__}; # we use eval |
1325 | |
1327 | |
1326 | # free some memory |
1328 | # free some memory |
1327 | *detect = sub () { $MODEL }; |
1329 | *detect = sub () { $MODEL }; |
… | |
… | |
1995 | This takes place when the first watcher is created. |
1997 | This takes place when the first watcher is created. |
1996 | |
1998 | |
1997 | For example, to bind a debug shell on a unix domain socket in |
1999 | For example, to bind a debug shell on a unix domain socket in |
1998 | F<< /tmp/debug<pid>.sock >>, you could use this: |
2000 | F<< /tmp/debug<pid>.sock >>, you could use this: |
1999 | |
2001 | |
2000 | PERL_ANYEVENT_DEBUG_SHELL=unix/:/tmp/debug\$\$.sock perlprog |
2002 | PERL_ANYEVENT_DEBUG_SHELL=/tmp/debug\$\$.sock perlprog |
2001 | |
2003 | |
2002 | Note that creating sockets in F</tmp> is very unsafe on multiuser |
2004 | Note that creating sockets in F</tmp> is very unsafe on multiuser |
2003 | systems. |
2005 | systems. |
2004 | |
2006 | |
2005 | =item C<PERL_ANYEVENT_DEBUG_WRAP> |
2007 | =item C<PERL_ANYEVENT_DEBUG_WRAP> |