Changeset 200 for trunk/base

Timestamp:

Aug 19, 2002, 1:25:25 AM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

Add 0-9 to variable name regexp

Location:

trunk/base

Files:

• Install/darwinports1.0/darwinports.tcl (modified) (1 diff)
• bin/portbuild (modified) (1 diff)

trunk/base/Install/darwinports1.0/darwinports.tcl

@@ -84 +84 @@
 
         foreach opt $options {
-                if {[regexp {([A-Za-z_\.]+)=(.+)} $opt match key val] == 1} {
+                if {[regexp {([A-Za-z0-9_\.]+)=(.+)} $opt match key val] == 1} {
                         $workername eval set user_options($key) \"$val\"
                         $workername eval set $key \"$val\"

trunk/base/bin/portbuild

@@ -30 +30 @@
                         set target [lindex $argv $i]
                 }
-                {[A-Za-z_\.]+=.+} {
-                        if {[regexp {([A-Za-z_\.]+)=(.+)} [lindex $argv $i] match key val] == 1} {
+                {[A-Za-z0-9_\.]+=.+} {
+                        if {[regexp {([A-Za-z0-9_\.]+)=(.+)} [lindex $argv $i] match key val] == 1} {
                                 lappend options [lindex $argv $i]
                         }