[ruby-dev:35724] $SAFE=4の場合のReadline::HISTORY.each

knu さんへ

高尾宏治です。

knu さんが r16125 にて、
Readline::HISTORY.each メソッドをブロックなしで呼び出したときに、
Enumerable::Enumerator を返すように修正されたと認識しています。
その修正で $SAFE が 4 の場合でも、
each メソッドを呼び出すことができるようになりました。
たぶん、$SAFE が 4 の場合は、
each メソッドを呼び出した時点で例外 SecurityError が
発生したほうがよいのではないかと思い、パッチを作成しました。
knu さんに修正内容を確認いただき、
問題がないようであればコミットしたいと考えています。
いかがでしょうか。

なお、現在、$SAFE が 4 の場合に
each メソッドをブロックなしで呼び出すことはできますが、
返り値の Enumerable::Enumerator に対してメソッド呼び出しをすると、
例外 SecurityError が発生します。
このため、例外が発生するタイミングが遅いというだけで、
実害はないと考えています。

以下の例では、パッチ適用後は(1)で例外が発生し、
パッチ適用前は(2)で例外が発生します。

  require "readline"
  Readline::HISTORY.push("a", "b", "c")
  $SAFE = 4
  e = Readline::HISTORY.each # (1)
  e.each do |s|              # (2)
    p s
  end

以上です。

----- ここから -----
Index: ext/readline/readline.c
===================================================================
--- ext/readline/readline.c	(revision 18314)
+++ ext/readline/readline.c	(working copy)
@@ -640,9 +640,8 @@
     HIST_ENTRY *entry;
     int i;
 
-    RETURN_ENUMERATOR(self, 0, 0);
-
     rb_secure(4);
+    RETURN_ENUMERATOR(self, 0, 0);
     for (i = 0; i < history_length; i++) {
         entry = history_get(history_get_offset_func(i));
         if (entry == NULL)
Index: test/readline/test_readline_history.rb
===================================================================
--- test/readline/test_readline_history.rb	(revision 18314)
+++ test/readline/test_readline_history.rb	(working copy)
@@ -48,6 +48,7 @@
        ["push", ["s"]],
        ["pop", []],
        ["shift", []],
+       ["each", []],
        ["length", []],
        ["delete_at", [0]],
        ["clear", []],