The network_equal function only tested the subnet addresses of two given networks which lead to
errormessages saying "This is the green network"
The fix tests netwok and subnet IP's to fix this
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
my $network1 = shift;
my $network2 = shift;
my $network1 = shift;
my $network2 = shift;
- my $bin1 = &network2bin($network1);
- my $bin2 = &network2bin($network2);
+ my @bin1 = &network2bin($network1);
+ my @bin2 = &network2bin($network2);
+ if ($bin1[0] eq $bin2[0] && $bin1[1] eq $bin2[1]) {
assert(!$result);
$result = &network_equal("192.168.0.1/24", "192.168.0.XXX/24");
assert(!$result);
$result = &network_equal("192.168.0.1/24", "192.168.0.XXX/24");
$result = &ip_address_in_network("10.0.1.4", "10.0.0.0/8");
assert($result);
$result = &ip_address_in_network("10.0.1.4", "10.0.0.0/8");
assert($result);