diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-25 22:00:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-25 22:00:16 +0000 |
| commit | e38950a33c3505db7e79547622aa5946cfe88d5c (patch) | |
| tree | ecb94365673b2f74e264d0cae8467a4481aea21f /perl-install/interactive.pm | |
| parent | 5692f13be4ba57a7f52b54a7576bd858f418dc14 (diff) | |
| download | drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.gz drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.bz2 drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.tar.xz drakx-backup-do-not-use-e38950a33c3505db7e79547622aa5946cfe88d5c.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 ]; } |