[25285] trunk/base

[source_changes at macosforge.org]

Revision: 25285
          http://trac.macosforge.org/projects/macports/changeset/25285
Author:   eridius at macports.org
Date:     2007-05-17 00:24:17 -0700 (Thu, 17 May 2007)

Log Message:
-----------
Fix reinplace, which I broke in r25251

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

Modified: trunk/base/ChangeLog
===================================================================
--- trunk/base/ChangeLog	2007-05-17 04:58:16 UTC (rev 25284)
+++ trunk/base/ChangeLog	2007-05-17 07:24:17 UTC (rev 25285)
@@ -4,6 +4,10 @@
 #   This is a log of major user-visible changes in each release
 #
 
+(unreleased)
+
+    - Fix reinplace, broken in 1.4.41 (eridius r25285).
+
 Release 1.4.41 (16-May-2007 tagged at r25266 by jberry):
 
     - `port info` now supports new --index flag for using old behaviour (eridius r25256).

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2007-05-17 04:58:16 UTC (rev 25284)
+++ trunk/base/src/port1.0/portutil.tcl	2007-05-17 07:24:17 UTC (rev 25285)
@@ -665,7 +665,7 @@
     set extended 0
     while 1 {
         set arg [lindex $args 0]
-        if {[string first - $arg] != -1} {
+        if {[string index $arg 0] eq "-"} {
             set args [lrange $args 1 end]
             switch [string range $arg 1 end] {
                 E {
@@ -675,7 +675,7 @@
                     break
                 }
                 default {
-                    error "reinplace: unknown flag '-$arg'"
+                    error "reinplace: unknown flag '$arg'"
                 }
             }
         } else {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070517/a41a8c75/attachment.html