[25453] branches/dp2mp-move/base/src/port1.0/portutil.tcl

[source_changes at macosforge.org]

Revision: 25453
          http://trac.macosforge.org/projects/macports/changeset/25453
Author:   jmpp at macports.org
Date:     2007-05-21 23:39:22 -0700 (Mon, 21 May 2007)

Log Message:
-----------
Merge eridius' r25285: Fix broken reinplace.

Modified Paths:
--------------
    branches/dp2mp-move/base/src/port1.0/portutil.tcl

Modified: branches/dp2mp-move/base/src/port1.0/portutil.tcl
===================================================================
--- branches/dp2mp-move/base/src/port1.0/portutil.tcl	2007-05-22 06:37:44 UTC (rev 25452)
+++ branches/dp2mp-move/base/src/port1.0/portutil.tcl	2007-05-22 06:39:22 UTC (rev 25453)
@@ -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/20070521/3494ac1d/attachment.html