Changeset 354

Timestamp:

Sep 14, 2018, 9:36:53 AM (6 years ago)

Author:

g7moreau

Message:

• Small bug in IP range check

File:

• trunk/ddt/ddt (modified) (3 diffs)

trunk/ddt/ddt

@@ -21 +21 @@
 use strict;
 #use warnings;
-use version; our $VERSION = version->declare('0.11.5');
+use version; our $VERSION = version->declare('0.11.6');
 
 use Getopt::Long qw(GetOptions);
@@ -321 +321 @@
    my $cidr = shift;
 
-   return 1 if $cidr !~ m{^(\d+\.){3}\d+/\d+$};
-   return 1 if not NetAddr::IP->new($cidr);
-   return 0;
+   return 0 if $cidr !~ m{^(\d+\.){3}\d+/\d+$};
+   return 0 if not NetAddr::IP->new($cidr);
+   return 1;
    }
 
@@ -1669 +1669 @@
 
    my $timestamp = time;
-   $computer_db->{'dset'}{$sector}{'ip-range'} |= [];
+   $computer_db->{'dset'}{$sector}{'ip-range'} ||= [];
    LOOP_ON_CIDR:
    for my $cidr_current (@{$computer_db->{'dset'}{$sector}{'ip-range'}}) {