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	brianr	1.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"),