Changes between Initial Version and Version 4 of Ticket #2703
- Timestamp:
- Mar 24, 2016, 12:54:28 PM (9 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #2703
- Property Owner changed from darwinports-bugs@… to rshaw@…
-
Property
Status
changed from
new
toclosed
-
Property
Resolution
changed from
to
fixed
-
Ticket #2703 – Description
initial v4 5 5 I don't know Tcl, so I have no idea what I'm doing, but it seems like it works :) 6 6 7 7 {{{ 8 8 Index: base/src/darwinports1.0/darwinports.tcl 9 9 =================================================================== … … 20 20 - foreach arg [split $line { \t}] { 21 21 + foreach arg [split $line "{ \t}"] { 22 if {[regexp 23 {^([-+])([-A-Za-z0-9_+\.]+)$} $arg match sign opt] == 1} { 24 if {![info exists 25 variations($opt)]} { 26 set 27 variations($opt) $sign 22 if {[regexp {^([-+])([-A-Za-z0-9_+\.]+)$} $arg match sign opt] == 1} { 23 if {![info exists variations($opt)]} { 24 set variations($opt) $sign 25 }}}