Fossil SCM
Treat 'file normalize' with a bit more skepticism.
Commit
e264125a2cb435fca8c5d0d325dbc4eb84fa98fc
Parent
e6e79ac6fbc1404…
1 file changed
+3
-1
+3
-1
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -419,12 +419,14 @@ | ||
| 419 | 419 | # |
| 420 | 420 | foreach name $names { |
| 421 | 421 | set value [getEnvironmentVariable $name] |
| 422 | 422 | |
| 423 | 423 | if {[string length $value] > 0} then { |
| 424 | + set value [file normalize $value] | |
| 425 | + | |
| 424 | 426 | if {[file exists $value] && [file isdirectory $value]} then { |
| 425 | - return [file normalize $value] | |
| 427 | + return $value | |
| 426 | 428 | } |
| 427 | 429 | } |
| 428 | 430 | } |
| 429 | 431 | |
| 430 | 432 | # |
| 431 | 433 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -419,12 +419,14 @@ | |
| 419 | # |
| 420 | foreach name $names { |
| 421 | set value [getEnvironmentVariable $name] |
| 422 | |
| 423 | if {[string length $value] > 0} then { |
| 424 | if {[file exists $value] && [file isdirectory $value]} then { |
| 425 | return [file normalize $value] |
| 426 | } |
| 427 | } |
| 428 | } |
| 429 | |
| 430 | # |
| 431 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -419,12 +419,14 @@ | |
| 419 | # |
| 420 | foreach name $names { |
| 421 | set value [getEnvironmentVariable $name] |
| 422 | |
| 423 | if {[string length $value] > 0} then { |
| 424 | set value [file normalize $value] |
| 425 | |
| 426 | if {[file exists $value] && [file isdirectory $value]} then { |
| 427 | return $value |
| 428 | } |
| 429 | } |
| 430 | } |
| 431 | |
| 432 | # |
| 433 |