diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 06:51:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-16 06:51:36 (GMT) |
| commit | 929fdafe13779bc173fe3b80069405044044171c (patch) | |
| tree | 41dffd9f5c750aa0e1cef0de9e0af09a28125cc7 | |
| parent | 93124d77a6848e2118547a4f477abd8e26493252 (diff) | |
| download | tcl-929fdafe13779bc173fe3b80069405044044171c.zip tcl-929fdafe13779bc173fe3b80069405044044171c.tar.gz tcl-929fdafe13779bc173fe3b80069405044044171c.tar.bz2 | |
Little tweak to makeHeader.tcl, not depending on lsearch returning -1 any more
| -rw-r--r-- | tools/makeHeader.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl index e9b7ed1..dd2f199 100644 --- a/tools/makeHeader.tcl +++ b/tools/makeHeader.tcl @@ -70,7 +70,7 @@ namespace eval makeHeader { set from [lsearch -glob $data $BEGIN] set to [lsearch -glob $data $END] - if {$from == -1 || $to == -1 || $from >= $to} { + if {$from < 0 || $to < 0 || $from >= $to} { throw BAD "not a template" } |