[39025] trunk/base/src/port1.0

[ryandesign at macports.org]

Revision: 39025
          http://trac.macosforge.org/projects/macports/changeset/39025
Author:   ryandesign at macports.org
Date:     2008-08-06 01:36:18 -0700 (Wed, 06 Aug 2008)
Log Message:
-----------
portlint.tcl, portutil.tcl: undo changes inadvertently committed in r39023

Modified Paths:
--------------
    trunk/base/src/port1.0/portlint.tcl
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl	2008-08-06 08:35:50 UTC (rev 39024)
+++ trunk/base/src/port1.0/portlint.tcl	2008-08-06 08:36:18 UTC (rev 39025)
@@ -143,11 +143,6 @@
 
 proc lint_main {args} {
 	global UI_PREFIX portname portpath portresourcepath
-	global ports_lint_strict
-	if {[info exists ports_lint_strict] && $ports_lint_strict == "yes"} {
-		ui_info "$UI_PREFIX strict mode enabled"
-	}
-	
 	set portfile ${portpath}/Portfile
 	set portdirs [split ${portpath} /]
 	set last [llength $portdirs]

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2008-08-06 08:35:50 UTC (rev 39024)
+++ trunk/base/src/port1.0/portutil.tcl	2008-08-06 08:36:18 UTC (rev 39025)
@@ -718,7 +718,6 @@
 # Provides "sed in place" functionality
 proc reinplace {args}  {
     set extended 0
-    set quiet 0
     while 1 {
         set arg [lindex $args 0]
         if {[string index $arg 0] eq "-"} {
@@ -727,9 +726,6 @@
                 E {
                     set extended 1
                 }
-                q {
-                    set quiet 1
-                }
                 - {
                     break
                 }
@@ -742,7 +738,7 @@
         }
     }
     if {[llength $args] < 2} {
-        error "reinplace ?-q? ?-E? pattern file ..."
+        error "reinplace ?-E? pattern file ..."
     }
     set pattern [lindex $args 0]
     set files [lrange $args 1 end]
@@ -780,14 +776,6 @@
     
         close $tmpfd
     
-        if {![catch {exec cmp -s $file $tmpfile}]} {
-            if {!$quiet} {
-                ui_warn "[format [msgcat::mc "reinplace %1\$s didn't change anything in %2\$s"] $pattern $file]"
-            } else {
-                ui_info "[format "reinplace %1\$s didn't change anything in %2\$s" $pattern $file]"
-            }
-        }
-    
         set attributes [file attributes $file]
         # We need to overwrite this file
         if {[catch {file attributes $file -permissions u+w} error]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080806/f21d1b8e/attachment.html