Fossil SCM
Remove superfluous use of 'file join' from 'auto.def'.
Commit
3728aa62ab9ea462d5f22c5e92e8d0216300b1a7
Parent
a9dc33d415730a6…
1 file changed
+3
-3
M
auto.def
+3
-3
| --- auto.def | ||
| +++ auto.def | ||
| @@ -131,21 +131,21 @@ | ||
| 131 | 131 | set tclpath [opt-val with-tcl] |
| 132 | 132 | if {$tclpath ne ""} { |
| 133 | 133 | set tclprivatestubs [opt-bool with-tcl-private-stubs] |
| 134 | 134 | # Note parse-tclconfig-sh is in autosetup/local.tcl |
| 135 | 135 | if {$tclpath eq "1"} { |
| 136 | - set tcldir [file join [file dirname $autosetup(dir)] compat/tcl-8.6] | |
| 136 | + set tcldir [file dirname $autosetup(dir)]/compat/tcl-8.6 | |
| 137 | 137 | if {$tclprivatestubs} { |
| 138 | - set tclconfig(TCL_INCLUDE_SPEC) -I[file join $tcldir generic] | |
| 138 | + set tclconfig(TCL_INCLUDE_SPEC) -I$tcldir/generic | |
| 139 | 139 | set tclconfig(TCL_VERSION) {Private Stubs} |
| 140 | 140 | set tclconfig(TCL_PATCH_LEVEL) {} |
| 141 | 141 | set tclconfig(TCL_PREFIX) $tcldir |
| 142 | 142 | set tclconfig(TCL_LD_FLAGS) { } |
| 143 | 143 | } else { |
| 144 | 144 | # Use the system Tcl. Look in some likely places. |
| 145 | 145 | array set tclconfig [parse-tclconfig-sh \ |
| 146 | - [file join $tcldir unix] [file join $tcldir win] \ | |
| 146 | + $tcldir/unix $tcldir/win \ | |
| 147 | 147 | /usr /usr/local /usr/share /opt/local] |
| 148 | 148 | set msg "on your system" |
| 149 | 149 | } |
| 150 | 150 | } else { |
| 151 | 151 | array set tclconfig [parse-tclconfig-sh $tclpath] |
| 152 | 152 |
| --- auto.def | |
| +++ auto.def | |
| @@ -131,21 +131,21 @@ | |
| 131 | set tclpath [opt-val with-tcl] |
| 132 | if {$tclpath ne ""} { |
| 133 | set tclprivatestubs [opt-bool with-tcl-private-stubs] |
| 134 | # Note parse-tclconfig-sh is in autosetup/local.tcl |
| 135 | if {$tclpath eq "1"} { |
| 136 | set tcldir [file join [file dirname $autosetup(dir)] compat/tcl-8.6] |
| 137 | if {$tclprivatestubs} { |
| 138 | set tclconfig(TCL_INCLUDE_SPEC) -I[file join $tcldir generic] |
| 139 | set tclconfig(TCL_VERSION) {Private Stubs} |
| 140 | set tclconfig(TCL_PATCH_LEVEL) {} |
| 141 | set tclconfig(TCL_PREFIX) $tcldir |
| 142 | set tclconfig(TCL_LD_FLAGS) { } |
| 143 | } else { |
| 144 | # Use the system Tcl. Look in some likely places. |
| 145 | array set tclconfig [parse-tclconfig-sh \ |
| 146 | [file join $tcldir unix] [file join $tcldir win] \ |
| 147 | /usr /usr/local /usr/share /opt/local] |
| 148 | set msg "on your system" |
| 149 | } |
| 150 | } else { |
| 151 | array set tclconfig [parse-tclconfig-sh $tclpath] |
| 152 |
| --- auto.def | |
| +++ auto.def | |
| @@ -131,21 +131,21 @@ | |
| 131 | set tclpath [opt-val with-tcl] |
| 132 | if {$tclpath ne ""} { |
| 133 | set tclprivatestubs [opt-bool with-tcl-private-stubs] |
| 134 | # Note parse-tclconfig-sh is in autosetup/local.tcl |
| 135 | if {$tclpath eq "1"} { |
| 136 | set tcldir [file dirname $autosetup(dir)]/compat/tcl-8.6 |
| 137 | if {$tclprivatestubs} { |
| 138 | set tclconfig(TCL_INCLUDE_SPEC) -I$tcldir/generic |
| 139 | set tclconfig(TCL_VERSION) {Private Stubs} |
| 140 | set tclconfig(TCL_PATCH_LEVEL) {} |
| 141 | set tclconfig(TCL_PREFIX) $tcldir |
| 142 | set tclconfig(TCL_LD_FLAGS) { } |
| 143 | } else { |
| 144 | # Use the system Tcl. Look in some likely places. |
| 145 | array set tclconfig [parse-tclconfig-sh \ |
| 146 | $tcldir/unix $tcldir/win \ |
| 147 | /usr /usr/local /usr/share /opt/local] |
| 148 | set msg "on your system" |
| 149 | } |
| 150 | } else { |
| 151 | array set tclconfig [parse-tclconfig-sh $tclpath] |
| 152 |