diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-08 15:01:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-08 15:01:20 (GMT) |
| commit | 10f4d4565dc1c86e6b26623c99d5709cac033f0f (patch) | |
| tree | 2d02f6f002a36e9c48040d79092747aa92f77957 /tests/fCmd.test | |
| parent | fa28b1f243cc546f139050545122af9cc297d0b7 (diff) | |
| download | tcl-10f4d4565dc1c86e6b26623c99d5709cac033f0f.zip tcl-10f4d4565dc1c86e6b26623c99d5709cac033f0f.tar.gz tcl-10f4d4565dc1c86e6b26623c99d5709cac033f0f.tar.bz2 | |
More -Wconversion warning fixes
Diffstat (limited to 'tests/fCmd.test')
| -rw-r--r-- | tests/fCmd.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index d60e58c..dcfe270 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -136,7 +136,7 @@ proc gethomedirglob {user} { set sid [string trim $sid] # Get path from the Windows registry set home [registry get "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\$sid" ProfileImagePath] - set home [string trim $home] + set home [string trim [string tolower $home]] } result]} { if {$home ne ""} { # file join for \ -> / @@ -147,7 +147,7 @@ proc gethomedirglob {user} { # Caller will need to use glob matching and hope user # name is in the home directory path - return *$user* + return *[string tolower $user]* } proc createfile {file {string a}} { |