Changeset 183

Timestamp:

10/03/09 02:26:57 (4 years ago)

Author:

jabra

Message:

replaced use of Data::Validate::IP for Base since we are using Net::CIDR

File:

• fierce2/branch/lib/Fierce/Base.pm (modified) (2 diffs)

fierce2/branch/lib/Fierce/Base.pm

@@ -14 +14 @@
     use Object::InsideOut ':SHARED';
     use Net::DNS;
-    use Data::Validate::IP qw(is_public_ipv4 is_private_ipv4);
+    use Net::CIDR ':all';
 
     my @name_servers : Field : Arg(name_servers) : All(name_servers) :
@@ -64 +64 @@
     sub validip {
         my ($self,$ip) = @_;
-        if(is_public_ipv4($ip) or is_private_ipv4($ip) ) {
+        if(Net::CIDR::cidrvalidate($ip)) {
             return 1;
         } else {