From bbda79cb58b561d652cf0085e03af832a2b8b5ed Mon Sep 17 00:00:00 2001 From: usa Date: Thu, 19 Jun 2003 04:21:25 +0000 Subject: * hash.c (env_delete, rb_f_getenv, env_fetch): case insensitive to access environment variables on DOSISH platforms. git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@3961 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- hash.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'hash.c') diff --git a/hash.c b/hash.c index 03318c31a..30ad8459b 100644 --- a/hash.c +++ b/hash.c @@ -1017,8 +1017,8 @@ env_delete(obj, name) VALUE value = env_str_new2(val); ruby_setenv(nam, 0); -#ifdef __BORLANDC__ - if (strcmpi(nam, "PATH") == 0) { +#ifdef DOSISH + if (strcasecmp(nam, "PATH") == 0) { #else if (strcmp(nam, "PATH") == 0) { #endif @@ -1053,8 +1053,8 @@ rb_f_getenv(obj, name) } env = getenv(nam); if (env) { -#ifdef __BORLANDC__ - if (strcmpi(nam, "PATH") == 0 && !rb_env_path_tainted()) +#ifdef DOSISH + if (strcasecmp(nam, "PATH") == 0 && !rb_env_path_tainted()) #else if (strcmp(nam, "PATH") == 0 && !rb_env_path_tainted()) #endif @@ -1096,8 +1096,8 @@ env_fetch(argc, argv) } return if_none; } -#ifdef __BORLANDC__ - if (strcmpi(nam, "PATH") == 0 && !rb_env_path_tainted()) +#ifdef DOSISH + if (strcasecmp(nam, "PATH") == 0 && !rb_env_path_tainted()) #else if (strcmp(nam, "PATH") == 0 && !rb_env_path_tainted()) #endif -- cgit