my $raw = '';
+ my $nethash = {};
foreach my $entry (@$options) {
+ $nethash->{$entry->{cidr}} = $entry;
+ }
+
+ foreach my $cidr (sort keys %$nethash) {
+ my $entry = $nethash->{$cidr};
my $line = $entry->{nomatch} ? '!' : '';
$line .= $entry->{cidr};
$line .= " # " . encode('utf8', $entry->{comment})