… | … | ||
---|---|---|---|
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 |