diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-01-25 08:12:37 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-01-25 08:12:37 +0000 |
commit | 8452085ea9a00fd007251eb2773f94e1ba7b3063 (patch) | |
tree | 1a8ccfd1f5be7aea63a307f93febf8fe668173da | |
parent | 1d95c9a09340f96af59a6fce97a00dbeb6636970 (diff) |
* ruby.c (proc_options): correct -T option in RUBYOPT. (backported
from CVS HEAD)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7825 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | ruby.c | 4 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,8 @@ +Tue Jan 25 17:11:51 2005 NAKAMURA Usaku <usa@ruby-lang.org> + + * ruby.c (proc_options): correct -T option in RUBYOPT. (backported + from CVS HEAD) + Tue Jan 25 14:05:52 2005 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> * ext/tcltklib/tcltklib.c: fix SEGV bug; trouble on canceling remained @@ -704,11 +704,11 @@ proc_options(argc, argv) if (rb_safe_level() == 0 && (s = getenv("RUBYOPT"))) { while (ISSPACE(*s)) s++; - if (*s == '-' && *(s+1) == 'T') { + if (*s == 'T' || *s == '-' && *(s+1) == 'T') { int numlen; int v = 1; - s += 2; + if (*s != 'T') ++s; if (*++s) { v = scan_oct(s, 2, &numlen); if (numlen == 0) v = 1; |