commit 42eebe032219d99eb534507bf546c9dec7e19549 parent 49fee903652f767f7b9c11832bbb542e968ca437 Author: ukai <ukai> Date: Fri, 7 Feb 2003 15:06:15 +0000 [w3m-dev 03736] dirlist sort * scripts/dirlist.cgi.in (right_dir): use cmp for filename comparison From: Hiroyuki Ito <hito@crl.go.jp> Diffstat:
M | ChangeLog | | | 5 | +++++ |
M | scripts/dirlist.cgi.in | | | 4 | ++-- |
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog @@ -1,3 +1,8 @@ +2003-02-08 Hiroyuki Ito <hito@crl.go.jp> + + * [w3m-dev 03736] dirlist sort + * scripts/dirlist.cgi.in (right_dir): use cmp for filename comparison + 2003-02-07 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp> * [w3m-dev 03735] Re: make error of checkType arg diff --git a/scripts/dirlist.cgi.in b/scripts/dirlist.cgi.in @@ -277,9 +277,9 @@ sub right_dir { } closedir(DIR); if ($SORT eq $SORT_SIZE) { - @list = sort { $sizes{$b} <=> $sizes{$a} || $a <=> $b } @list; + @list = sort { $sizes{$b} <=> $sizes{$a} || $a cmp $b } @list; } elsif ($SORT eq $SORT_TIME) { - @list = sort { $ctimes{$b} <=> $ctimes{$a} || $a <=> $b } @list; + @list = sort { $ctimes{$b} <=> $ctimes{$a} || $a cmp $b } @list; } else { @list = sort @list; }