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