diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-15 11:24:57 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-15 11:24:57 (GMT) |
| commit | cfdcf4d708fc97847ce55ec109177a179e07d877 (patch) | |
| tree | a80f6fc735fa824ecb3eb0c495c924106238614e /unix | |
| parent | 0ae4bbd59996c13c00a600399f85df649355251d (diff) | |
| download | tcl-cfdcf4d708fc97847ce55ec109177a179e07d877.zip tcl-cfdcf4d708fc97847ce55ec109177a179e07d877.tar.gz tcl-cfdcf4d708fc97847ce55ec109177a179e07d877.tar.bz2 | |
Ignore error in setting tcl_rcFileName for historical compatibility
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclAppInit.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index ef77dcd..8f84587 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -207,11 +207,14 @@ Tcl_AppInit( * run interactively. Typically the startup file is "~/.apprc" where "app" * is the name of the application. If this line is deleted then no * user-specific startup file will be run under any conditions. + * In keeping with the historical behavior, errors setting the name + * for example, if the home directory cannot be found, are ignored. */ - return TclSetRcFilePath(interp, TCL_RC_FILE); - + (void) TclSetRcFilePath(interp, TCL_RC_FILE); + Tcl_ResetResult(interp); + return TCL_OK; } - + /* * Local Variables: * mode: c |