Changeset 81821

Timestamp:

08/05/11 04:33:46 (4 years ago)

Author:

cal@…

Message:

rev-upgrade: path_is_in_prefix didn't work as expected

File:

• branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl (modified) (1 diff)

branches/gsoc11-rev-upgrade/base/src/macports1.0/macports.tcl

@@ -4010 +4010 @@
 # Returns true if the path is in the prefix, false otherwise
 proc path_is_in_prefix {path} {
-    return [string first $macports::prefix $path] == 0 || [string first $macports::applications_dir $path] == 0
+    if {[string first $macports::prefix $path] == 0} {
+        return yes
+    }
+    if {[string first $macports::applications_dir $path] == 0} {
+        return yes
+    }
+    return no
 }