Changeset 629 for trunk

Timestamp:

04/30/14 17:15:04 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix the fix in r626; it tried to convert the wrong part of the record
to a NetAddr::IP.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -544 +544 @@
     return ('FAIL',"A record must be a valid IPv4 address")
         unless ${$args{val}} =~ /^\d+\.\d+\.\d+\.\d+$/;
-    $args{addr} = new NetAddr::IP ${$args{host}};
+    $args{addr} = new NetAddr::IP ${$args{val}};
     return ('FAIL',"A record must be a valid IPv4 address")
         unless $args{addr} && !$args{addr}->{isv6};