smeserver-denyhosts/contribs10/smeserver-denyhosts-2.9-bz10076-wrongIPremovedfromWL.patch

diff -Nur smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm
--- smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm   2012-06-03 12:11:23.000000000 -0400
+++ smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm       2017-02-06 11:58:48.289000000 -0500
@@ -85,10 +85,10 @@
         print $q->Tr(
                 esmith::cgi::genSmallCell($q, $self->localise('IP_ADDRESS'),"header"),
                 esmith::cgi::genSmallCell($q, $self->localise('REMOVE'),"header"));
-
+       my @vals_sorted= sort ip_sort @vals;
         my @cbGroup = $q->checkbox_group(-name => 'validFromRemove',
-                -values => [@vals], -labels => { map {$_ => ''} @vals });
-        foreach my $val (sort ip_sort @vals)
+                -values => [@vals_sorted], -labels => { map {$_ => ''} @vals_sorted });
+        foreach my $val (@vals_sorted)
         {
             print $q->Tr(
                     esmith::cgi::genSmallCell($q, $val, "normal"),
1	diff -Nur smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm
2	--- smeserver-denyhosts-2.9.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm 2012-06-03 12:11:23.000000000 -0400
3	+++ smeserver-denyhosts-2.9/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/denyhosts.pm 2017-02-06 11:58:48.289000000 -0500
4	@@ -85,10 +85,10 @@
5	print $q->Tr(
6	esmith::cgi::genSmallCell($q, $self->localise('IP_ADDRESS'),"header"),
7	esmith::cgi::genSmallCell($q, $self->localise('REMOVE'),"header"));
8	-
9	+ my @vals_sorted= sort ip_sort @vals;
10	my @cbGroup = $q->checkbox_group(-name => 'validFromRemove',
11	- -values => [@vals], -labels => { map {$_ => ''} @vals });
12	- foreach my $val (sort ip_sort @vals)
13	+ -values => [@vals_sorted], -labels => { map {$_ => ''} @vals_sorted });
14	+ foreach my $val (@vals_sorted)
15	{
16	print $q->Tr(
17	esmith::cgi::genSmallCell($q, $val, "normal"),