Artifact
8108e548796ed9ca9d08fc4bf866000f8c7c04db:
Attachment "patch" to
ticket [3432962fff]
added by
karll
2011-11-04 03:19:07.
*** tclMain.c.orig Thu Nov 3 15:02:54 2011
--- tclMain.c Thu Nov 3 15:04:12 2011
***************
*** 460,472 ****
}
/*
! * 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;
}
/*
--- 460,475 ----
}
/*
! * 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.
*/
! if (tty) {
! Tcl_SourceRCFile(interp);
! if (Tcl_LimitExceeded(interp)) {
! goto done;
! }
}
/*