Diff

Differences From Artifact [833e43f77d]:

To Artifact [aa6092043f]:


    83     83   					set currpkginfo(name) $name
    84     84   					set currpkginfo(vers) $vers
    85     85   				}
    86     86   				"META" {
    87     87   					set var [string tolower [lindex $line 1]]
    88     88   					set val [lrange $line 2 end]
    89     89   
    90         -					lappend currpkginfo($var) $val
           90  +					if {![info exists currpkginfo($var)]} {
           91  +						set currpkginfo($var) ""
           92  +					}
           93  +
           94  +					if {[lsearch -exact $currpkginfo($var) $val] == -1} {
           95  +						lappend currpkginfo($var) $val
           96  +					}
    91     97   				}
    92     98   			}
    93     99   		}
    94    100   
    95    101   		set pkginfo([list $currpkginfo(name) $currpkginfo(vers) $currpkginfo(platform)]) [array get currpkginfo]
    96    102   	}
    97    103