| 1 | Index: port.tcl |
|---|
| 2 | =================================================================== |
|---|
| 3 | RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v |
|---|
| 4 | retrieving revision 1.66 |
|---|
| 5 | diff -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 { |
|---|
