Changeset 15871


Ignore:
Timestamp:
Jan 16, 2006, 4:11:30 AM (15 years ago)
Author:
jberry
Message:

tighten up variant parsing so that we don't accept first what we'll reject later

File:
1 edited

Legend:

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

    r15870 r15871  
    33exec @TCLSH@ "$0" "$@"
    44# port.tcl
    5 # $Id: port.tcl,v 1.154 2006/01/16 02:17:57 jberry Exp $
     5# $Id: port.tcl,v 1.155 2006/01/16 04:11:30 jberry Exp $
    66#
    77# Copyright (c) 2002-2006 DarwinPorts organization
     
    999999
    10001000                set remainder ""
    1001                 if {![regexp {^(@|[-+]|[[:alpha:]_]+[\w\.]*=)} $token match]} {
     1001                if {![regexp {^(@|[-+]([[:alpha:]_]+[\w\.]*)|[[:alpha:]_]+[\w\.]*=)} $token match]} {
    10021002                        advance
    10031003                        regexp {^([^@]+)(@.*)?} $token match portname remainder
Note: See TracChangeset for help on using the changeset viewer.