Ticket #1385: patch-darwinports.tcl

File patch-darwinports.tcl, 479 bytes (added by tp62@…, 20 years ago)

Patch for darwinports/base/src/darwinports1.0/darwinports.tcl

Line 
1--- darwinports/base/src/darwinports1.0/darwinports.tcl Tue Jan  6 05:20:57 2004
2+++ darwinports.tcl     Tue Jan  6 05:19:20 2004
3@@ -537,7 +537,7 @@
4         }
5         while {[gets $fd line] >= 0} {
6             set name [lindex $line 0]
7-            if {[regexp -- $regexp $name] == 1} {
8+            if {[regexp -nocase -- $regexp $name] == 1} {
9                 gets $fd line
10                 array set portinfo $line
11                 if {[info exists portinfo(portarchive)]} {