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.

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