diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-10-01 08:15:28 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-10-01 08:15:28 +0000 |
commit | ab59aa3fb32a9be7325124f5d1c673ce04d7f873 (patch) | |
tree | 612d3c4da1d514b66a4d5dce57bd4f60c7fad3d3 /ext | |
parent | a50744a88455ae1a828c3951bd344c97ce590ff7 (diff) |
* regex.c (re_match): p1 may exceed pend limit.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_6@2914 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tcltklib/tcltklib.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 0972f9ec9d..d48d4bec02 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -729,8 +729,8 @@ invoke_queue_handler(evPtr, flags) /* check safe-level */ if (rb_safe_level() != q->safe_level) { - *(q->result) = rb_funcall(rb_proc_new(ivq_safelevel_handler, - Data_Wrap_Struct(rb_cData,0,0,q)), + *(q->result) = rb_funcall(rb_iterate(rb_f_lambda, 0, ivq_safelevel_handler, + Data_Wrap_Struct(rb_cData,0,0,q)), rb_intern("call"), 0); } else { *(q->result) = ip_invoke_real(q->argc, q->argv, q->obj); |