diff options
| -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; + } } /* |