| … | |
… | |
| 1417 | if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) { |
1417 | if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) { |
| 1418 | require AnyEvent::Debug; |
1418 | require AnyEvent::Debug; |
| 1419 | AnyEvent::Debug::wrap ($ENV{PERL_ANYEVENT_DEBUG_WRAP}); |
1419 | AnyEvent::Debug::wrap ($ENV{PERL_ANYEVENT_DEBUG_WRAP}); |
| 1420 | } |
1420 | } |
| 1421 | |
1421 | |
| 1422 | if (exists $ENV{PERL_ANYEVENT_DEBUG_SHELL}) { |
1422 | if (length $ENV{PERL_ANYEVENT_DEBUG_SHELL}) { |
| 1423 | require AnyEvent::Socket; |
1423 | require AnyEvent::Socket; |
| 1424 | require AnyEvent::Debug; |
1424 | require AnyEvent::Debug; |
| 1425 | |
1425 | |
| 1426 | my $shell = $ENV{PERL_ANYEVENT_DEBUG_SHELL}; |
1426 | my $shell = $ENV{PERL_ANYEVENT_DEBUG_SHELL}; |
| 1427 | $shell =~ s/\$\$/$$/g; |
1427 | $shell =~ s/\$\$/$$/g; |
