foreach my $src (@sources) {
# Skip invalid source.
- next unless (@$src[0]);
+ next unless (defined $src);
+ next unless ($src);
# Sanitize source.
my $source = @$src[0];
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[0];