[PATCH 6/7] psgi: sort "location" column lexically

[Eric Wong <e@80x24.org>]

It's probably not worth sorting line numbers for
location.
---
 lib/Devel/Mwrap/PSGI.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/Devel/Mwrap/PSGI.pm b/lib/Devel/Mwrap/PSGI.pm
index 5bb7c36..52dbebe 100644
--- a/lib/Devel/Mwrap/PSGI.pm
+++ b/lib/Devel/Mwrap/PSGI.pm
@@ -92,7 +92,11 @@ sub each_gt {
 	} @f));
 	my @all;
 	Devel::Mwrap::each($min, \&accumulate_i, \@all);
-	@all = sort { $b->[$sc] <=> $a->[$sc] } @all;
+	if ($sc eq $#FIELDS) { # locations are sorted alphabetically
+		@all = sort { $a->[$sc] cmp $b->[$sc] } @all;
+	} else { # everything else is numeric
+		@all = sort { $b->[$sc] <=> $a->[$sc] } @all;
+	}
 	my $age = Devel::Mwrap::current_age();
 	my $live = $age - Devel::Mwrap::total_bytes_freed();
 	print $fh <<EOM;