Ticket #2683: patch-port.tcl

File patch-port.tcl, 697 bytes (added by kballard (Lily Ballard), 20 years ago)

Patch for base/src/port/port.tcl

Line 
1Index: port.tcl
2===================================================================
3RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v
4retrieving revision 1.66
5diff -u -r1.66 port.tcl
6--- port.tcl    19 Jan 2005 11:49:53 -0000      1.66
7+++ port.tcl    11 Feb 2005 23:18:51 -0000
8@@ -334,9 +334,9 @@
9                        puts "Please specify a filename to check which port provides that file."
10                        exit 1
11                }
12-               set file $portname
13+               set file [file normalize $portname]
14                if { [file exists $file] && ![file isdirectory $file] } {
15-                       set port [registry::file_registered $file] 
16+                       set port [registry::file_registered $file]
17                        if { $port != 0 } {
18                                puts "$file is provided by: $port"
19                        } else {