Changeset 39025


Ignore:
Timestamp:
Aug 6, 2008, 8:36:18 AM (9 years ago)
Author:
ryandesign@…
Message:

portlint.tcl, portutil.tcl: undo changes inadvertently committed in r39023

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

Legend:

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

    r39023 r39025  
    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        
    151146        set portfile ${portpath}/Portfile
    152147        set portdirs [split ${portpath} /]
  • trunk/base/src/port1.0/portutil.tcl

    r39023 r39025  
    719719proc reinplace {args}  {
    720720    set extended 0
    721     set quiet 0
    722721    while 1 {
    723722        set arg [lindex $args 0]
     
    728727                    set extended 1
    729728                }
    730                 q {
    731                     set quiet 1
    732                 }
    733729                - {
    734730                    break
     
    743739    }
    744740    if {[llength $args] < 2} {
    745         error "reinplace ?-q? ?-E? pattern file ..."
     741        error "reinplace ?-E? pattern file ..."
    746742    }
    747743    set pattern [lindex $args 0]
     
    780776   
    781777        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         }
    790778   
    791779        set attributes [file attributes $file]
Note: See TracChangeset for help on using the changeset viewer.