# remove unused list chains first
foreach my $chain (keys %$statushash) {
next if $statushash->{$chain}->{action} ne 'delete';
- next if $chain !~ m/-v[46]$/;
+ next if $chain =~ m/-v[46]$/;
$delete_cmdlist .= "flush $chain\n";
$delete_cmdlist .= "destroy $chain\n";
# the remove unused -v4 -v6 chains
foreach my $chain (keys %$statushash) {
next if $statushash->{$chain}->{action} ne 'delete';
- next if $chain =~ m/-v[46]$/;
+ next if $chain !~ m/-v[46]$/;
$delete_cmdlist .= "flush $chain\n";
$delete_cmdlist .= "destroy $chain\n";