Author: arkurth
Date: Fri Apr 3 17:29:36 2015
New Revision: 1671107
URL: http://svn.apache.org/r1671107
Log:
VCL-856
Updated iptables.pm::DESTROY to dereference the hash:
%{$ENV{iptables_get_table_info_count}}
Modified:
vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/firewall/iptables.pm
Modified: vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/firewall/iptables.pm
URL:
http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/firewall/iptables.pm?rev=1671107&r1=1671106&r2=1671107&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/firewall/iptables.pm
(original)
+++ vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/firewall/iptables.pm Fri
Apr 3 17:29:36 2015
@@ -1401,11 +1401,11 @@ sub DESTROY {
my $address = sprintf('%x', $self);
my $table_count_string;
if ($ENV{iptables_get_table_info_count}) {
- for my $table_name (keys $ENV{iptables_get_table_info_count}) {
+ for my $table_name (keys
%{$ENV{iptables_get_table_info_count}}) {
my $table_count =
$ENV{iptables_get_table_info_count}{$table_name};
$table_count_string .= "$table_name: $table_count\n";
}
- notify($ERRORS{'DEBUG'}, 0, "get_table_info
calls:\n$table_count_string");
+ notify($ERRORS{'DEBUG'}, 0, "get_table_info calls
($address):\n$table_count_string");
}
# Check for an overridden destructor
