kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tcltklib/tcltklib.c (ip_RubyExitCommand): exit with status code

Browse source 
via TclTkIp#_eval didn't work. [ruby-talk:139390]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8379 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ocean 2005-04-23 11:04:00 +00:00
parent a08123a5de
commit 4e9a14b715
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Sat Apr 23 19:49:21 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
* ext/tcltklib/tcltklib.c (ip_RubyExitCommand): exit with status code
via TclTkIp#_eval didn't work. [ruby-talk:139390]
Sat Apr 23 11:45:29 2005 Nobuyoshi Nakada <nobu@ruby-lang.org> Sat Apr 23 11:45:29 2005 Nobuyoshi Nakada <nobu@ruby-lang.org>
* eval.c (rb_provided): should check also path name to be loaded. * eval.c (rb_provided): should check also path name to be loaded.

5
ext/tk/tcltklib.c
View file

@ -2860,16 +2860,17 @@ ip_RubyExitCommand(clientData, interp, argc, argv)
case 2: case 2:
#if TCL_MAJOR_VERSION >= 8 #if TCL_MAJOR_VERSION >= 8
if (!Tcl_GetIntFromObj(interp, argv[1], &state)) { if (Tcl_GetIntFromObj(interp, argv[1], &state) == TCL_ERROR) {
return TCL_ERROR; return TCL_ERROR;
} }
param = Tcl_GetString(argv[1]); param = Tcl_GetString(argv[1]);
#else /* TCL_MAJOR_VERSION < 8 */ #else /* TCL_MAJOR_VERSION < 8 */
state = (int)strtol(argv[1], &endptr, 0); state = (int)strtol(argv[1], &endptr, 0);
if (endptr) { if (*endptr) {
Tcl_AppendResult(interp, Tcl_AppendResult(interp,
"expected integer but got \"", "expected integer but got \"",
argv[1], "\"", (char *)NULL); argv[1], "\"", (char *)NULL);
return TCL_ERROR;
} }
param = argv[1]; param = argv[1];
#endif #endif