Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Protect against weird behaviour |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9faa8801765bd6c81f99944e1bb30602 |
| User & Date: | peter 2019-02-04 23:51:30.814 |
Context
|
2019-02-04
| ||
| 23:51 | Added file select to changes check-in: 2300d33a45 user: peter tags: trunk | |
| 23:51 | Protect against weird behaviour check-in: 9faa880176 user: peter tags: trunk | |
| 23:39 | Better layout for file selection in commit. check-in: 9c39a2ca72 user: peter tags: trunk | |
Changes
Changes to src/dirdiff.tcl.
| ︙ | ︙ | |||
164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
if {![string equal -nocase $f1 $f2]} {
set eq 0
}
} else {
if {![string equal $f1 $f2]} {
set eq 0
}
}
}
if {$eq == 2 && (![eof $ch1] || ![eof $ch2])} {
set eq 0
}
# Errors during close are not interesting
catch {close $ch1}
| > > > > > > | 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 |
if {![string equal -nocase $f1 $f2]} {
set eq 0
}
} else {
if {![string equal $f1 $f2]} {
set eq 0
}
}
# It has been observered that sometimes channels fail to
# signal eof. Maybe when they come from a pipe?
# Protect by noticing empty strings.
if {[string equal $f1 ""] || [string equal $f2 ""]} {
break
}
}
if {$eq == 2 && (![eof $ch1] || ![eof $ch2])} {
set eq 0
}
# Errors during close are not interesting
catch {close $ch1}
|
| ︙ | ︙ |