diff options
author | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-03-03 09:37:10 +0000 |
---|---|---|
committer | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-03-03 09:37:10 +0000 |
commit | e082d7017db7a1eaeb49999e189e77dd1347c58a (patch) | |
tree | 514d7dde9de5ab02fac8dca23670f6e864d95378 | |
parent | da9117c9de204ae56e7ea7db9fd050eb3191d6ff (diff) |
* eval.c (rb_provided): return true only for features loaded from
.rb files, and not search actual library type. [ruby-dev:30414]
* eval.c (rb_feature_p): check loading_tbl if the given ext is
empty. [ruby-dev:30452]
* eval.c (rb_feature_p): fix possible buffer overrun.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8_6@11966 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 10 | ||||
-rw-r--r-- | eval.c | 30 |
2 files changed, 28 insertions, 12 deletions
@@ -1,3 +1,13 @@ +Sat Mar 3 18:36:35 2007 Nobuyoshi Nakada <nobu@ruby-lang.org> + + * eval.c (rb_provided): return true only for features loaded from + .rb files, and not search actual library type. [ruby-dev:30414] + + * eval.c (rb_feature_p): check loading_tbl if the given ext is + empty. [ruby-dev:30452] + + * eval.c (rb_feature_p): fix possible buffer overrun. + Sat Mar 3 16:30:39 2007 Akinori MUSHA <knu@iDaemons.org> * env.h (SCOPE_CLONE): Introduce a new scope flag to prevent a @@ -6937,6 +6937,9 @@ static const char *const loadable_ext[] = { 0 }; +static int rb_feature_p _((const char *, const char *, int)); +static int search_required _((VALUE, VALUE *, VALUE *)); + static int rb_feature_p(feature, ext, rb) const char *feature, *ext; @@ -6973,15 +6976,15 @@ rb_feature_p(feature, ext, rb) } if (loading_tbl) { if (st_lookup(loading_tbl, (st_data_t)feature, 0)) { - if (ext) return 'u'; + if (!ext) return 'u'; return strcmp(ext, ".rb") ? 's' : 'r'; } else { char *buf; - if (ext) return 0; + if (ext && *ext) return 0; buf = ALLOCA_N(char, len + DLEXT_MAXLEN + 1); - strcpy(buf, feature); + MEMCPY(buf, feature, char, len); for (i = 0; (e = loadable_ext[i]) != 0; i++) { strncpy(buf + len, e, DLEXT_MAXLEN + 1); if (st_lookup(loading_tbl, (st_data_t)buf, 0)) { @@ -6993,21 +6996,24 @@ rb_feature_p(feature, ext, rb) return 0; } -static int search_required(VALUE, VALUE *, VALUE *); - int rb_provided(feature) const char *feature; { - VALUE fname, path; + const char *ext = strrchr(feature, '.'); - if (rb_feature_p(feature, 0, Qfalse)) - return Qtrue; - if (search_required(rb_str_new2(feature), &fname, &path) != 0) { - feature = RSTRING_PTR(fname); - if (rb_feature_p(feature, strrchr(feature, '.'), Qfalse)) - return Qtrue; + if (ext && !strchr(ext, '/')) { + if (strcmp(".rb", ext) == 0) { + if (rb_feature_p(feature, ext, Qtrue)) return Qtrue; + return Qfalse; + } + else if (IS_SOEXT(ext) || IS_DLEXT(ext)) { + return Qfalse; /* may be overriden by .rb file */ + } } + if (rb_feature_p(feature, feature + strlen(feature), Qtrue)) + return Qtrue; + return Qfalse; } |