From a56e20aa81e46aefec0556a99fc575c66fd38242 Mon Sep 17 00:00:00 2001 From: usa Date: Tue, 25 Jan 2005 08:12:37 +0000 Subject: * ruby.c (proc_options): correct -T option in RUBYOPT. (backported from CVS HEAD) git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7825 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 +++++ ruby.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index aaa9cf31c..2ec71ed0f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Tue Jan 25 17:11:51 2005 NAKAMURA Usaku + + * ruby.c (proc_options): correct -T option in RUBYOPT. (backported + from CVS HEAD) + Tue Jan 25 14:05:52 2005 Hidetoshi NAGAI * ext/tcltklib/tcltklib.c: fix SEGV bug; trouble on canceling remained diff --git a/ruby.c b/ruby.c index 10a1813d0..763697b2f 100644 --- a/ruby.c +++ b/ruby.c @@ -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; -- cgit