vcl-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From arku...@apache.org
Subject svn commit: r1147968 - /incubator/vcl/trunk/managementnode/lib/VCL/Module/State.pm
Date Mon, 18 Jul 2011 16:55:48 GMT
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");



Mime
View raw message