Remove unnecessary exec #26
|
@ -19,7 +19,7 @@ foreach arg $argv {
|
|||
lappend dirs $arg
|
||||
}
|
||||
}
|
||||
if {![llength $dirs]} { lappend dirs [exec pwd] }
|
||||
if {![llength $dirs]} { lappend dirs [pwd] }
|
||||
|
||||
foreach dir $dirs {
|
||||
if {[string index $dir end] eq "/"} {
|
||||
|
|
Loading…
Reference in New Issue