diff --git a/ChangeLog b/ChangeLog index eced3c3f79..34a1db9bdc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,19 +1,24 @@ +Tue Jul 5 23:23:09 2005 Nobuyoshi Nakada + + * array.c (sort_2): get rid of yet another bcc's bug. + fixed: [ruby-core:05152] + Tue Jul 5 15:15:10 2005 Hidetoshi NAGAI * ext/tk/tkutil.c: fix typo. Tue Jul 5 14:52:56 2005 Hidetoshi NAGAI - * ext/tk/tcltklib.c: bug fix on treating Unicode strings. + * ext/tk/tcltklib.c: bug fix on treating Unicode strings. * ext/tk/tcltklib.c: add methods to treat encoding mode. - * ext/tk/MANUAL_tcltklib.eng: add description of TclTkLib#encoding, + * ext/tk/MANUAL_tcltklib.eng: add description of TclTkLib#encoding, encoding_system, and so on. * ext/tk/MANUAL_tcltklib.eucj: ditto. - * ext/tk/tkutil/tkutil.c: fail to create a Tcl's list string from + * ext/tk/tkutil/tkutil.c: fail to create a Tcl's list string from an array including multiple kind of encoded strings. * ext/tk/lib/tk.rb: ditto. @@ -22,10 +27,10 @@ Tue Jul 5 14:52:56 2005 Hidetoshi NAGAI * ext/tk/lib/remote-tk.rb: ditto. - * ext/tk/lib/tk.rb: override TclTkLib#encoding and encoding= to + * ext/tk/lib/tk.rb: override TclTkLib#encoding and encoding= to use TkCore::INTERP.encoding and encoding=. - * ext/tk/lib/tk.rb: when "require 'tk'" and $KCODE=='NONE', check + * ext/tk/lib/tk.rb: when "require 'tk'" and $KCODE=='NONE', check DEFAULT_TK_ENCODING to decide Ruby/Tk's system encoding mode. * ext/tk/lib/tk/encodedstr.rb: check both of Tk.encoding and diff --git a/array.c b/array.c index 79547bee37..cdb64bf4d8 100644 --- a/array.c +++ b/array.c @@ -1630,8 +1630,8 @@ sort_2(ap, bp, data) if ((long)a < (long)b) return -1; return 0; } - if (TYPE(a) == T_STRING && TYPE(b) == T_STRING) { - return rb_str_cmp(a, b); + if (TYPE(a) == T_STRING) { + if (TYPE(b) == T_STRING) return rb_str_cmp(a, b); } retval = rb_funcall(a, id_cmp, 1, b);