2 files changed, 13 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 272660284e..7a86b717bd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jul  7 15:36:50 2007  Tanaka Akira  <akr@fsij.org>
+
+	* lib/pp.rb (PP::PPMethods#pp_hash): sort if
+	  all keys are strings, symbols or integers.
+
 Sat Jul  7 15:30:05 2007  Koichi Sasada  <ko1@atdot.net>
 
 	* insnhelper.ci (vm_yield_setup_args), vm.c, insns.def: 
diff --git a/lib/pp.rb b/lib/pp.rb
index 179f5013fb..e92ab014a7 100644
--- a/lib/pp.rb
+++ b/lib/pp.rb
@@ -247,7 +247,14 @@ class PP < PrettyPrint
 
     def pp_hash(obj)
       group(1, '{', '}') {
-        seplist(obj, nil, :each_pair) {|k, v|
+        keys = obj.keys
+        if keys.all? {|k| k.respond_to? :to_str } ||
+           keys.all? {|k| k.is_a? Symbol } ||
+           keys.all? {|k| k.is_a? Integer }
+          keys.sort!
+        end
+        seplist(keys, nil, :each) {|k|
+          v = obj[k]
           group {
             pp k
             text '=>'