diff options
author | khoff <khoff> | 2003-09-12 00:14:48 +0000 |
---|---|---|
committer | khoff <khoff> | 2003-09-12 00:14:48 +0000 |
commit | 85e1e6cd17d746818ad898bdac7c48de91398b2b (patch) | |
tree | f4b37ec3f59f6d75b2d6caa6176251c36d42967e /FS/FS/addr_block.pm | |
parent | dc77b9285fd9bd9a9594b5d6abf82a5a69e1097c (diff) |
@excludeaddr is a list of addresses, not NetAddrs, so it shouldn't be map'd
Diffstat (limited to 'FS/FS/addr_block.pm')
-rwxr-xr-x | FS/FS/addr_block.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/addr_block.pm b/FS/FS/addr_block.pm index 4b034ef..1fb6060 100755 --- a/FS/FS/addr_block.pm +++ b/FS/FS/addr_block.pm @@ -176,11 +176,12 @@ sub next_free_addr { my $conf = new FS::Conf; my @excludeaddr = $conf->config('exclude_ip_addr'); - my @used = ( - map { $_->NetAddr->addr } - ($self, - qsearch('svc_broadband', { blocknum => $self->blocknum }) ), - @excludeaddr ); +my @used = +( (map { $_->NetAddr->addr } + ($self, + qsearch('svc_broadband', { blocknum => $self->blocknum })) + ), @excludeaddr +); my @free = $self->NetAddr->hostenum; while (my $ip = shift @free) { |