Skip to content
Permalink
Browse files

Fix variable value regexp for once and for all (i hope)

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@186 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
landonf committed Aug 17, 2002
1 parent ddf2f99 commit 43a6a114869c33c20eb5e322aeaa0f9d1493c844
Showing with 2 additions and 2 deletions.
  1. +1 −1 Install/darwinports1.0/darwinports.tcl
  2. +1 −1 bin/portbuild
@@ -81,7 +81,7 @@ proc build {portdir chain target {options ""}} {
}

foreach opt $options {
if {[regexp {([A-Za-z_\.]+)=([A-Za-z0-9\ _\.]+)} $opt match key val] == 1} {
if {[regexp {([A-Za-z_\.]+)=(.+)} $opt match key val] == 1} {
workerbee eval set user_options($key) \"$val\"
workerbee eval set $key \"$val\"
}
@@ -30,7 +30,7 @@ for {set i 0} {$i < $argc} {incr i} {
set target [lindex $argv $i]
}
{[A-Za-z_\.]+=[A-Za-z0-9\ _\.]+} {
if {[regexp {([A-Za-z_\.]+)=([A-Za-z0-9\ _\.]+)} [lindex $argv $i] match key val] == 1} {
if {[regexp {([A-Za-z_\.]+)=(.+)} [lindex $argv $i] match key val] == 1} {
lappend options [lindex $argv $i]
}
}

0 comments on commit 43a6a11

Please sign in to comment.
You can’t perform that action at this time.