From c2d273fd77c5b07e5a01b5c756a4b8273a16d239 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 13 Oct 2002 00:51:17 +0000
Subject: [PATCH] ut_ip fix from 1.5

---
 FS/FS/Record.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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");
   '';
 }
 
-- 
2.20.1