foreach my $src (@sources) {
# Skip invalid source.
- next unless (@$src[0]);
+ next unless (defined $src);
+ next unless ($src);
# Sanitize source.
- my $source = $src;
+ my $source = @$src[0];
if ($source ~~ @ANY_ADDRESSES) {
$source = "";
}
+ my $source_intf = @$src[1];
+
foreach my $dst (@destinations) {
# Skip invalid rules.
- next if (!@$dst[0] || (@$dst[0] eq "none"));
+ next unless (defined $dst);
+ next if (!$dst || ($dst eq "none"));
# Sanitize destination.
- my $destination = $dst;
+ my $destination = @$dst[0];
if ($destination ~~ @ANY_ADDRESSES) {
$destination = "";
}