Ignore:
Timestamp:
Aug 14, 2003, 2:11:07 AM (15 years ago)
Author:
landonf
Message:

Fix all conditionals that are missing braces
Submitted by: Jason Corley <jcorley1@…>

File:
1 edited

Legend:

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

    r3163 r3220  
    214214   
    215215    set cmdstring ""
    216     if [info exists ${command}.dir] {
     216    if {[info exists ${command}.dir]} {
    217217        set cmdstring "cd \"[set ${command}.dir]\" &&"
    218218    }
    219219   
    220     if [info exists ${command}.env] {
     220    if {[info exists ${command}.env]} {
    221221        foreach string [set ${command}.env] {
    222222            set cmdstring "$cmdstring $string"
     
    224224    }
    225225   
    226     if [info exists ${command}.cmd] {
     226    if {[info exists ${command}.cmd]} {
    227227        foreach string [set ${command}.cmd] {
    228228            set cmdstring "$cmdstring $string"
     
    232232    }
    233233    foreach var "${command}.pre_args ${command}.args ${command}.post_args" {
    234         if [info exists $var] {
     234        if {[info exists $var]} {
    235235            foreach string [set ${var}] {
    236236                set cmdstring "$cmdstring $string"
     
    409409    global distpath filedir workdir worksrcdir portpath
    410410
    411     if [file readable $portpath/$fname] {
     411    if {[file readable $portpath/$fname]} {
    412412        return $portpath/$fname
    413     } elseif [file readable $portpath/$filedir/$fname] {
     413    } elseif {[file readable $portpath/$filedir/$fname]} {
    414414        return $portpath/$filedir/$fname
    415     } elseif [file readable $distpath/$fname] {
     415    } elseif {[file readable $distpath/$fname]} {
    416416        return $distpath/$fname
    417417    }
     
    423423proc include {fname} {
    424424    set tgt [filefindbypath $fname]
    425     if [string length $tgt] {
     425    if {[string length $tgt]} {
    426426        uplevel "source $tgt"
    427427    } else {
     
    548548    global workpath portname portpath ports_ignore_older
    549549   
    550     if ![file isdirectory $workpath ] {
     550    if {![file isdirectory $workpath]} {
    551551        file mkdir $workpath
    552552    }
     
    566566       
    567567    set fd [open $statefile a+]
    568     if [catch {flock $fd -exclusive -noblock} result] {
     568    if {[catch {flock $fd -exclusive -noblock} result]} {
    569569        if {"$result" == "EAGAIN"} {
    570570            ui_msg "Waiting for lock on $statefile"
     
    638638proc port_traverse {func {dir .}} {
    639639    set pwd [pwd]
    640     if [catch {cd $dir} err] {
     640    if {[catch {cd $dir} err]} {
    641641        ui_error $err
    642642        return
     
    646646            continue
    647647        }
    648         if [file isdirectory $name] {
     648        if {[file isdirectory $name]} {
    649649            port_traverse $func $name
    650650        } else {
    651             if [string match $name Portfile] {
     651            if {[string match $name Portfile]} {
    652652                catch {eval $func {[file join $pwd $dir]}}
    653653            }
Note: See TracChangeset for help on using the changeset viewer.