pf-tools/pf-tools: only carp when to server (or virtual server) ...

[parmelan-guest at users.alioth.debian.org]

details:   http://hg.debian.org/hg/pf-tools/pf-tools/rev/e2df0c249143
changeset: 1273:e2df0c249143
user:      shad
date:      Tue Apr 15 11:17:23 2014 +0200
description:
only carp when to server (or virtual server) share the same ip

diffstat:

 lib/PFTools/Conf/Host.pm |  5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diffs (22 lines):

diff -r 59724ac97a6f -r e2df0c249143 lib/PFTools/Conf/Host.pm
--- a/lib/PFTools/Conf/Host.pm	Mon Apr 14 19:26:51 2014 +0200
+++ b/lib/PFTools/Conf/Host.pm	Tue Apr 15 11:17:23 2014 +0200
@@ -612,7 +612,8 @@
     my $ip_address
         = NetAddr::IP->new( $prefix . $ipstart, $subnet_ref->mask() );
     if ( !$ip_address ) {
-        croak qq{ERROR: Invalid IP with prefix='$prefix' and ipstart='$ipstart'};
+        croak
+            qq{ERROR: Invalid IP with prefix='$prefix' and ipstart='$ipstart'};
     }
 
     if ($hostnum) {
@@ -622,7 +623,7 @@
 
     my $host_addr_site = $site_ref->{'HOST'}->{'BY_ADDR'};
     if ( defined $host_addr_site->{ $ip_address->cidr() } ) {
-        croak q{ERROR: }
+        carp q{WARNING: }
             . $ip_address->addr()
             . qq{ already defined on site $site_name by }
             . $host_addr_site->{ $ip_address->cidr() };