Changes between Initial Version and Version 4 of Ticket #2703


Ignore:
Timestamp:
Mar 24, 2016, 12:54:28 PM (8 years ago)
Author:
ryandesign (Ryan Carsten Schmidt)
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #2703

    • Property Owner changed from darwinports-bugs@… to rshaw@…
    • Property Status changed from new to closed
    • Property Resolution changed from to fixed

  • Ticket #2703 – Description

    initial v4  
    55I don't know Tcl, so I have no idea what I'm doing, but it seems like it works :)
    66
    7 
     7{{{
    88Index: base/src/darwinports1.0/darwinports.tcl
    99===================================================================
    … …  
    2020-                                       foreach arg [split $line { \t}] {
    2121+                                       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}}}