[27127] trunk/base/src/macports1.0/macports_fastload.tcl.in

[source_changes at macosforge.org]

Revision: 27127
          http://trac.macosforge.org/projects/macports/changeset/27127
Author:   eridius at macports.org
Date:     2007-07-20 06:10:23 -0700 (Fri, 20 Jul 2007)

Log Message:
-----------
Fix version comparison to properly detect 8.4.7 and later
Patch submitted by sfiera at macports.org, fixes ticket #12311

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports_fastload.tcl.in

Modified: trunk/base/src/macports1.0/macports_fastload.tcl.in
===================================================================
--- trunk/base/src/macports1.0/macports_fastload.tcl.in	2007-07-20 07:39:45 UTC (rev 27126)
+++ trunk/base/src/macports1.0/macports_fastload.tcl.in	2007-07-20 13:10:23 UTC (rev 27127)
@@ -43,8 +43,8 @@
 # installations) may experience problems due to different package loading
 # behavior.
 #
-if { ($tcl_version < 8.4) ||
-	(($tcl_version == 8.4) && ([lindex [split [info patchlevel] .] 3] < 7))} {
+if { [regexp {\d+\.\d+\.\d+} [info patchlevel]] &&
+        ([package vcompare [info patchlevel] 8.4.7] < 0) } {
 	global allpackages
 	if {![info exists allpackages]} {
 		# Only patch once.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070720/03925025/attachment.html