diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:39:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:39:09 (GMT) |
| commit | d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310 (patch) | |
| tree | 7bb450068eb4efbc3969ba8fff1e0a991137f3b9 /tools/mkdepend.tcl | |
| parent | 5bef31d2da2eb4ed8f3261ef8276cb2a3b6f3a1e (diff) | |
| parent | f0ec68f07293dac2b967d45a3697073b77688970 (diff) | |
| download | tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.zip tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.tar.gz tcl-d0cfe30a0d61b7b9fe957c29c73ea5aa1d9f8310.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tools/mkdepend.tcl')
| -rw-r--r-- | tools/mkdepend.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/mkdepend.tcl b/tools/mkdepend.tcl index 3d96a5e..b1ad076 100644 --- a/tools/mkdepend.tcl +++ b/tools/mkdepend.tcl @@ -88,7 +88,7 @@ proc readDepends {chan} { set line "" array set depends {} - while {[gets $chan line] != -1} { + while {[gets $chan line] >= 0} { if {[regexp {^#line [0-9]+ \"(.*)\"$} $line dummy fname] != 0} { set fname [file normalize $fname] if {![info exists target]} { |