diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-26 18:08:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-26 18:08:53 (GMT) |
| commit | f4525365f018d20542cda155991d058b26190f01 (patch) | |
| tree | 8708b4620ec64359c102d531d6f82fd43542b870 | |
| parent | 888f7141151b5b085d0cdc0029121d67a06e7273 (diff) | |
| download | tcl-rfe_3432962.zip tcl-rfe_3432962.tar.gz tcl-rfe_3432962.tar.bz2 | |
Submitted patch on interactive use of the rc file.rfe_3432962
Needs resolution of the failing tests in the test suite to be considered
for merge.
| -rw-r--r-- | generic/tclMain.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 7a19a38..9c856b9 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -460,13 +460,16 @@ Tcl_Main( } /* - * We're running interactively. Source a user-specific startup file if the - * application specified one and if the file exists. + * No script file was specified on the command line. + * If we're running interactively, source a user-specific + * startup file if the application specified one and if the file exists. */ - Tcl_SourceRCFile(interp); - if (Tcl_LimitExceeded(interp)) { - goto done; + if (tty) { + Tcl_SourceRCFile(interp); + if (Tcl_LimitExceeded(interp)) { + goto done; + } } /* |