[37386] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 37386
          http://trac.macosforge.org/projects/macports/changeset/37386
Author:   raimue at macports.org
Date:     2008-06-05 03:31:37 -0700 (Thu, 05 Jun 2008)

Log Message:
-----------
port/port.tcl:
port provides was broken by r37238, closes #15515.

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-06-05 10:26:11 UTC (rev 37385)
+++ trunk/base/src/port/port.tcl	2008-06-05 10:31:37 UTC (rev 37386)
@@ -1537,11 +1537,11 @@
         ui_error "Please specify a filename to check which port provides that file."
         return 1
     }
-    foreachport $portlist {
-        set file [compat filenormalize $portname]
+    foreach filename $portlist {
+        set file [compat filenormalize $filename]
         if {[file exists $file]} {
             if {![file isdirectory $file]} {
-                set port [registry::file_registered $file] 
+                set port [registry::file_registered $file]
                 if { $port != 0 } {
                     puts "$file is provided by: $port"
                 } else {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080605/21f1131b/attachment.htm