| … | |
… | |
| 39 | use base 'Exporter'; |
39 | use base 'Exporter'; |
| 40 | |
40 | |
| 41 | our @EXPORT = qw(gethostbyname gethostbyaddr); |
41 | our @EXPORT = qw(gethostbyname gethostbyaddr); |
| 42 | our @EXPORT_OK = qw(inet_aton fork_eval); |
42 | our @EXPORT_OK = qw(inet_aton fork_eval); |
| 43 | |
43 | |
| 44 | our $VERSION = 6.511; |
44 | our $VERSION = 6.512; |
| 45 | |
45 | |
| 46 | our $MAXPARALLEL = 16; # max. number of parallel jobs |
46 | our $MAXPARALLEL = 16; # max. number of parallel jobs |
| 47 | |
47 | |
| 48 | my $jobs = new Coro::Semaphore $MAXPARALLEL; |
48 | my $jobs = new Coro::Semaphore $MAXPARALLEL; |
| 49 | |
49 | |
