From c35ccc213d1fc61e85fc08fb4f16868ca7e008d4 Mon Sep 17 00:00:00 2001
From: Vladimir Prus <ghost@cs.msu.su>
Date: Fri, 13 Jan 2006 08:18:00 +0000
Subject: [PATCH] Fix a bug preventing absolute path names in "build-project".

[SVN r32311]
---
 v2/build/project.jam | 2 +-
 v2/build/targets.jam | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/v2/build/project.jam b/v2/build/project.jam
index 7314a956a..3e62546be 100644
--- a/v2/build/project.jam
+++ b/v2/build/project.jam
@@ -76,7 +76,7 @@ rule load ( jamfile-location )
         # loading the current Jamfile.       
         for local p in [ attribute $(module-name) projects-to-build ]
         {
-            load [ path.join $(jamfile-location) $(p) ] ;
+            load [ path.root $(p) $(jamfile-location) ] ;
         }
 
         local used = [ modules.peek $(module-name) : .used-projects ] ;
diff --git a/v2/build/targets.jam b/v2/build/targets.jam
index c28f30a94..668c1e416 100644
--- a/v2/build/targets.jam
+++ b/v2/build/targets.jam
@@ -280,7 +280,8 @@ class project-target : abstract-target
         local self-location = [ get location ] ;
         for local pn in [ get projects-to-build ]
         {
-            local p = [ project.module-name [ path.join $(self-location) $(pn) ] ] ;
+            local p = [ project.module-name 
+                [ path.root $(pn) $(self-location) ] ] ;
             result += [ project.target $(p) ] ;
         }