| … | … | ||
|---|---|---|---|
| 8 | use Coro; | 8 | use Coro; |
| 9 | use Coro::Event; | 9 | use Coro::Event; |
| 10 | use Coro::Semaphore; | 10 | use Coro::Semaphore; |
| 11 | use Coro::SemaphoreSet; | 11 | use Coro::SemaphoreSet; |
| 12 | use Coro::Socket; | 12 | use Coro::Socket; |
| 13 | |||
| 14 | use BerkeleyDB; | ||
| 13 | 15 | ||
| 14 | $Event::DIED = sub { | 16 | $Event::DIED = sub { |
| 15 | Event::verbose_exception_handler(@_); | 17 | Event::verbose_exception_handler(@_); |
| 16 | #Event::unloop_all(); | 18 | #Event::unloop_all(); |
| 17 | }; | 19 | }; |
| … | … | ||
| 202 | $whois; | 204 | $whois; |
| 203 | } | 205 | } |
| 204 | 206 | ||
| 205 | package netgeo; | 207 | package netgeo; |
| 206 | 208 | ||
| 207 | use BerkeleyDB; | ||
| 208 | use Socket; | 209 | use Socket; |
| 209 | 210 | ||
| 210 | sub ip2int($) { | 211 | sub ip2int($) { |
| 211 | unpack "N", inet_aton $_[0]; | 212 | unpack "N", inet_aton $_[0]; |
| 212 | } | 213 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |