diff options
| author | drh <> | 2024-11-16 17:39:34 +0000 |
|---|---|---|
| committer | drh <> | 2024-11-16 17:39:34 +0000 |
| commit | 18689b8fb28805cee499d913738a6822247c0c9c (patch) | |
| tree | 50dbe9a2f68196fdc3b87dc38753727346d1f3be /src/tclsqlite.c | |
| parent | 50faa8d17edfda79686dd937da76b4ecbe948cf4 (diff) | |
| download | sqlite-18689b8fb28805cee499d913738a6822247c0c9c.tar.gz sqlite-18689b8fb28805cee499d913738a6822247c0c9c.zip | |
Fix argument expansion in sqlite-tclsh on Windows such that if an argument
does not match a filename even after glob expansion, it is appended to the
argument list verbatim.
FossilOrigin-Name: cd942dce148c9d8f5a94cee61923aad8d1b732b807e004005f78323be30c02e7
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index af0d27b1f..36459e4a9 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -4037,9 +4037,12 @@ static const char *tclsh_main_loop(void){ "if {[file exists $arg]} {\n" "lappend new $arg\n" "} else {\n" + "set once 0\n" "foreach match [lsort [glob -nocomplain $arg]] {\n" "lappend new $match\n" + "set once 1\n" "}\n" + "if {!$once} {lappend new $arg}\n" "}\n" "}\n" "set argv $new\n" |