fix regression (--command option)

2023-06-23 09:53:05 +02:00 · 2023-06-23 09:53:05 +02:00 · 70995165b0
parent 7e865eea1d
commit 70995165b0
1 changed files with 1 additions and 1 deletions
--- a/src/xinit.c
+++ b/src/xinit.c
@ -2769,7 +2769,7 @@ int Tcl_AppInit(Tcl_Interp *inter)

 /* Execute tcl script given on command line with --command */
 if(cli_opt_tcl_post_command) {
-   source_tcl_file(cli_opt_tcl_post_command);
+   tcleval(cli_opt_tcl_post_command);
 }

 if(quit) {