[25293] branches/release_1_4/base/src/port1.0/portutil.tcl

[source_changes at macosforge.org]

Revision: 25293
          http://trac.macosforge.org/projects/macports/changeset/25293
Author:   jberry at macports.org
Date:     2007-05-17 07:10:25 -0700 (Thu, 17 May 2007)

Log Message:
-----------
merge in r25285 from trunk, fixing a bug in reinplace introduced in 1.4.41

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

Modified: branches/release_1_4/base/src/port1.0/portutil.tcl
===================================================================
--- branches/release_1_4/base/src/port1.0/portutil.tcl	2007-05-17 14:01:08 UTC (rev 25292)
+++ branches/release_1_4/base/src/port1.0/portutil.tcl	2007-05-17 14:10:25 UTC (rev 25293)
@@ -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/d460f46b/attachment.html