ip allocation mutex for high-traffic implementations, RT#79825

diff --git a/FS/FS/IP_Mixin.pm b/FS/FS/IP_Mixin.pm
index beb41d2..3ec7693 100644 (file)
--- a/FS/FS/IP_Mixin.pm
+++ b/FS/FS/IP_Mixin.pm
@@ -130,6 +130,10 @@ sub assign_ip_addr {
   my $self = shift;
   my %opt = @_;
 
   my $self = shift;
   my %opt = @_;
 

+  #otherwise we'll get the same assignment for concurrent identical calls
+  # this will serialize them
+  $_->lock_table foreach @subclasses;
+

   my @blocks;
   my $na = $self->NetAddr;
 
   my @blocks;
   my $na = $self->NetAddr;