Changeset 26693 for trunk/base/src/port1.0/portutil.tcl

Timestamp:

2007-07-03 23:16:19 (17 months ago)

Author:

eridius@…

Message:

Commit patch for #12224 - provide ${os.major} variable

Files:

• trunk/base/src/port1.0/portutil.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portutil.tcl

@@ -486 +486 @@
 # be more readable, and support arch and version specifics
 proc platform {args} {
-    global all_variants PortInfo os.platform os.arch os.version
+    global all_variants PortInfo os.platform os.arch os.version os.major
     
     set len [llength $args]
@@ -523 +523 @@
     if {[info exists os.platform] && ${os.platform} == $os} { 
         set sel_platform $os
-        if {[info exists os.version] && [info exists release]} {
-            regexp {([0-9]*)[0-9\.]?} ${os.version} match major
-            if {$major == $release } { 
+        if {[info exists os.major] && [info exists release]} {
+            if {${os.major} == $release } { 
                 set sel_platform ${sel_platform}_${release} 
             } else {