From e38950a33c3505db7e79547622aa5946cfe88d5c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Sep 2000 22:00:16 +0000 Subject: no_comment --- perl-install/interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index ecaa8f095..e78eb2e8a 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -188,7 +188,7 @@ sub ask_many_from_list { $h->{labels} ||= [ map { $h->{label} ? $h->{label}->($_) : $_ } @{$h->{list}} ]; if ($h->{sort}) { - my @places = sort { $h->{labels}[$b] <=> $h->{labels}[$a] } 0 .. $#{$h->{labels}}; + my @places = sort { $h->{labels}[$a] cmp $h->{labels}[$b] } 0 .. $#{$h->{labels}}; $h->{labels} = [ map { $h->{labels}[$_] } @places ]; $h->{list} = [ map { $h->{list}[$_] } @places ]; } -- cgit v1.2.1