Projects
New Ticket     Wiki     Browse Source     Timeline     Roadmap     Bug Reports     Search

Changeset 39023 for trunk/base/src

Show
Ignore:
Timestamp:
08/06/08 01:00:26 (4 months ago)
Author:
ryandesign@…
Message:

ChangeLog: consolidate entries for Leopard environment variable issue

Location:
trunk/base/src/port1.0
Files:
2 modified

Legend:

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

    r37981 r39023  
    144144proc lint_main {args} { 
    145145        global UI_PREFIX portname portpath portresourcepath 
     146        global ports_lint_strict 
     147        if {[info exists ports_lint_strict] && $ports_lint_strict == "yes"} { 
     148                ui_info "$UI_PREFIX strict mode enabled" 
     149        } 
     150         
    146151        set portfile ${portpath}/Portfile 
    147152        set portdirs [split ${portpath} /] 
  • trunk/base/src/port1.0/portutil.tcl

    r38317 r39023  
    719719proc reinplace {args}  { 
    720720    set extended 0 
     721    set quiet 0 
    721722    while 1 { 
    722723        set arg [lindex $args 0] 
     
    727728                    set extended 1 
    728729                } 
     730                q { 
     731                    set quiet 1 
     732                } 
    729733                - { 
    730734                    break 
     
    739743    } 
    740744    if {[llength $args] < 2} { 
    741         error "reinplace ?-E? pattern file ..." 
     745        error "reinplace ?-q? ?-E? pattern file ..." 
    742746    } 
    743747    set pattern [lindex $args 0] 
     
    776780     
    777781        close $tmpfd 
     782     
     783        if {![catch {exec cmp -s $file $tmpfile}]} { 
     784            if {!$quiet} { 
     785                ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]" 
     786            } else { 
     787                ui_info "[format "reinplace %1\$s didn't change anything in %2\$s" $pattern $file]" 
     788            } 
     789        } 
    778790     
    779791        set attributes [file attributes $file]