svn commit: r1147968 - /incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm

[arkurth]

Author: arkurth
Date: Mon Jul 18 16:55:48 2011
New Revision: 1147968

URL: http://svn.apache.org/viewvc?rev=1147968&view=rev
Log:
VCL-428
Changed sorting of database select call counts from alphabetical to numeric in 
State.pm::DESTROY.

Modified:
    incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm

Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm
URL: 
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm?rev=1147968&r1=1147967&r2=1147968&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm Mon Jul 18 
16:55:48 2011
@@ -859,9 +859,9 @@ sub DESTROY {
        if (defined $ENV{database_select_calls}) {
                my $database_select_calls_string;
                my %hash = %{$ENV{database_select_calls}};
-               my @sorted_keys = sort { $hash{$b} cmp $hash{$a} } keys(%hash);
+               my @sorted_keys = sort { $hash{$b} <=> $hash{$a} } keys(%hash);
                for my $key (@sorted_keys) {
-                       $database_select_calls_string .= 
"($ENV{database_select_calls}{$key}) $key\n";
+                       $database_select_calls_string .= 
"$ENV{database_select_calls}{$key}: $key\n";
                }
                
                notify($ERRORS{'DEBUG'}, 0, "database select called 
from:\n$database_select_calls_string");