* ruby.c (proc_options): correct -T option in RUBYOPT.
fixed: [ruby-dev:25512] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7824 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
17e40d68e0
commit
5ff5e1c91d
@ -1,3 +1,8 @@
|
|||||||
|
Tue Jan 25 17:05:15 2005 NAKAMURA Usaku <usa@ruby-lang.org>
|
||||||
|
|
||||||
|
* ruby.c (proc_options): correct -T option in RUBYOPT.
|
||||||
|
fixed: [ruby-dev:25512]
|
||||||
|
|
||||||
Tue Jan 25 14:05:52 2005 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
|
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
|
* ext/tcltklib/tcltklib.c: fix SEGV bug; trouble on canceling remained
|
||||||
|
4
ruby.c
4
ruby.c
@ -709,11 +709,11 @@ proc_options(argc, argv)
|
|||||||
|
|
||||||
if (rb_safe_level() == 0 && (s = getenv("RUBYOPT"))) {
|
if (rb_safe_level() == 0 && (s = getenv("RUBYOPT"))) {
|
||||||
while (ISSPACE(*s)) s++;
|
while (ISSPACE(*s)) s++;
|
||||||
if (*s == '-' && *(s+1) == 'T') {
|
if (*s == 'T' || *s == '-' && *(s+1) == 'T') {
|
||||||
int numlen;
|
int numlen;
|
||||||
int v = 1;
|
int v = 1;
|
||||||
|
|
||||||
s += 2;
|
if (*s != 'T') ++s;
|
||||||
if (*++s) {
|
if (*++s) {
|
||||||
v = scan_oct(s, 2, &numlen);
|
v = scan_oct(s, 2, &numlen);
|
||||||
if (numlen == 0) v = 1;
|
if (numlen == 0) v = 1;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user