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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.