Changeset 37386 for trunk/base/src

Timestamp:

06/05/08 03:31:37 (6 months ago)

Author:

raimue@…

Message:

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

Files:

• trunk/base/src/port/port.tcl (modified) (1 diff)

trunk/base/src/port/port.tcl

@@ -1538 +1538 @@
         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"