ut_ip fix from 1.5

1 files changed, 1 insertions, 1 deletions

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index e6126a13b..c247ed2db 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -930,7 +930,7 @@ sub ut_ip {
   $self->getfield($field) =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/
     or return "Illegal (IP address) $field: ". $self->getfield($field);
   for ( $1, $2, $3, $4 ) { return "Illegal (IP address) $field" if $_ > 255; }
-  $self->setfield($field, "$1.$2.$3.$3");
+  $self->setfield($field, "$1.$2.$3.$4");
   '';
 }