Author: arkurth
Date: Tue Jun 30 15:14:20 2015
New Revision: 1688471
URL: http://svn.apache.org/r1688471
Log:
VCL-880
Updated Linux.pm::clean_iptables to sort rule numbers numerically.
Modified:
vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
Modified: vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
URL:
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm?rev=1688471&r1=1688470&r2=1688471&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm Tue Jun 30 15:14:20 2015
@@ -4490,7 +4490,7 @@ sub clean_iptables {
my $chain = "INPUT";
my @commands;
my $firewall_configuration = $self->get_firewall_configuration() ||
return;
- RULE: for my $rule_number (reverse sort keys
%{$firewall_configuration->{$chain}}) {
+ RULE: for my $rule_number (reverse sort {$a<=>$b} keys
%{$firewall_configuration->{$chain}}) {
my $rule = $firewall_configuration->{$chain}{$rule_number};
for my $protocol (keys %$rule) {
