Changeset 14530


Ignore:
Timestamp:
Oct 10, 2005, 2:11:39 PM (15 years ago)
Author:
jberry
Message:

Fix provides action. The portspec parser was getting hung up by the syntax.

Reported by: blb...Thanks!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/port.tcl

    r14519 r14530  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.117 2005/10/10 02:49:29 jberry Exp $
     5# $Id: port.tcl,v 1.118 2005/10/10 14:11:39 jberry Exp $
    66#
    77# Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
     
    977977        if { [moreargs] } {
    978978                # Look first for a potential portname
     979                #
     980                # We need to allow a wide variaty of tokens here, because of actions like "provides"
     981                # so we take a rather lenient view of what a "portname" is. We allow
     982                # anything that doesn't look like either a variant, a version, or an option
    979983                set token [lookahead]
    980                 if {[regexp {^\w+} $token match]} {
     984                if {![regexp {^(\d.*|[-+].*|[[:alpha:]_]+[\w\.]*=.*)} $token match]} {
    981985                        set portname $token
    982986                        advance
     
    16921696                        set opts {}
    16931697                        foreach { key value } [array get options] {
    1694                                 lappend opts "$key=\"$value\""
     1698                                lappend opts "$key=$value"
    16951699                        }
    16961700                       
Note: See TracChangeset for help on using the changeset viewer.