diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 12:07:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-29 12:07:12 (GMT) |
| commit | aec08b44290b81346bbd0e499b77fbf3ba92f75d (patch) | |
| tree | 265464616ab6550aa7d65f520ac2bf7ce1d252e5 /generic/tclCmdIL.c | |
| parent | f34c5d92cfab2cebab1441dda9cebb71927a8543 (diff) | |
| parent | b2522c9c24b283a616ac38c4c987827c4fa86167 (diff) | |
| download | tcl-aec08b44290b81346bbd0e499b77fbf3ba92f75d.zip tcl-aec08b44290b81346bbd0e499b77fbf3ba92f75d.tar.gz tcl-aec08b44290b81346bbd0e499b77fbf3ba92f75d.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c93e593..4cb81ea 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1678,7 +1678,7 @@ InfoLibraryCmd( return TCL_ERROR; } - libDirName = Tcl_GetVar(interp, "tcl_library", TCL_GLOBAL_ONLY); + libDirName = Tcl_GetVar2(interp, "tcl_library", NULL, TCL_GLOBAL_ONLY); if (libDirName != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj(libDirName, -1)); return TCL_OK; @@ -1804,7 +1804,7 @@ InfoPatchLevelCmd( return TCL_ERROR; } - patchlevel = Tcl_GetVar(interp, "tcl_patchLevel", + patchlevel = Tcl_GetVar2(interp, "tcl_patchLevel", NULL, (TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG)); if (patchlevel != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj(patchlevel, -1)); |