Ignore:
Timestamp:
Apr 24, 2007, 5:02:07 PM (11 years ago)
Author:
eridius@…
Message:

ln now accepts combined flags (ex. ln -sf foo bar)
ChangeLog entry added

File:
1 edited

Legend:

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

    r24450 r24452  
    832832    while {[string match -* [lindex $args 0]]} {
    833833        set arg [string range [lindex $args 0] 1 end]
    834         set args [lrange $args 1 end]
     834        if {[string length $arg] > 1} {
     835            set remainder -[string range $arg 1 end]
     836            set arg [string range $arg 0 0]
     837            set args [lreplace $args 0 0 $remainder]
     838        } else {
     839            set args [lreplace $args 0 0]
     840        }
    835841        switch -- $arg {
    836842            f -
Note: See TracChangeset for help on using the changeset viewer.