… | |
… | |
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.48; |
44 | our $VERSION = 6.47; |
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 | |