Ignore:
Timestamp:
May 17, 2007, 7:24:17 AM (11 years ago)
Author:
eridius@…
Message:

Fix reinplace, which I broke in r25251

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r25283 r25285  
    666666    while 1 {
    667667        set arg [lindex $args 0]
    668         if {[string first - $arg] != -1} {
     668        if {[string index $arg 0] eq "-"} {
    669669            set args [lrange $args 1 end]
    670670            switch [string range $arg 1 end] {
     
    676676                }
    677677                default {
    678                     error "reinplace: unknown flag '-$arg'"
     678                    error "reinplace: unknown flag '$arg'"
    679679                }
    680680            }
Note: See TracChangeset for help on using the changeset viewer.