| … | |
… | |
| 1307 | for (qw(time signal child idle)) { |
1307 | for (qw(time signal child idle)) { |
| 1308 | undef &{"AnyEvent::Base::$_"} |
1308 | undef &{"AnyEvent::Base::$_"} |
| 1309 | if defined &{"$MODEL\::$_"}; |
1309 | if defined &{"$MODEL\::$_"}; |
| 1310 | } |
1310 | } |
| 1311 | |
1311 | |
| 1312 | require AnyEvent::Strict if $ENV{PERL_ANYEVENT_STRICT}; |
1312 | if ($ENV{PERL_ANYEVENT_STRICT}) { |
|
|
1313 | eval { require AnyEvent::Strict }; |
|
|
1314 | warn "AnyEvent: cannot load AnyEvent::Strict: $@" |
|
|
1315 | if $@ && $VERBOSE; |
|
|
1316 | } |
| 1313 | |
1317 | |
| 1314 | (shift @post_detect)->() while @post_detect; |
1318 | (shift @post_detect)->() while @post_detect; |
| 1315 | |
1319 | |
| 1316 | *post_detect = sub(&) { |
1320 | *post_detect = sub(&) { |
| 1317 | shift->(); |
1321 | shift->(); |
