From 3d2aeda1dcd21fe42a308edd493ecf97b2b47027 Mon Sep 17 00:00:00 2001
From: Roland Schwarz <roland.schwarz@blackspace.at>
Date: Sat, 12 Apr 2008 11:02:35 +0000
Subject: [PATCH] Fixed a bug in for seldom used argument
 <property:/property-name/> in rule format-name. Added /property-name/ may be
 a regex.

[SVN r44343]
---
 v2/tools/common.jam | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/v2/tools/common.jam b/v2/tools/common.jam
index 62b5941f8..5a1b866a9 100644
--- a/v2/tools/common.jam
+++ b/v2/tools/common.jam
@@ -643,7 +643,8 @@ actions hard-link
 #           value as the version number.
 #   <property:/property-name/>[joiner]
 #       ::  Direct lookup of the given property-name value in the
-#           build properties.
+#           build properties. /property-name/ is a regular expression.
+#           e.g. <property:toolset-.*:flavor> will match every toolset.
 #   /otherwise/
 #       ::  The literal value of the format argument.
 #
@@ -693,12 +694,15 @@ rule format-name ( format * : name : type ? : property-set )
 
                 case <property:*> :
                 local key = [ MATCH <property:(.*)> : $(f:G) ] ;
-                local p = [ $(property-set).get [ MATCH <property:(.*)> : $(f:G) ] ] ;
-                if $(p)
-                {
-                    result += [ join-tag $(f:G=) : $(p) ] ;
+                local p0 = [ MATCH <($(key))> : [ $(property-set).raw ] ] ;
+                if $(p0) {
+                    local p = [ $(property-set).get <$(p0)> ] ;
+                    if $(p)
+                    {
+                        result += [ join-tag $(f:G=) : $(p) ] ;
+                    }
                 }
-
+                
                 case * :
                 result += $(f:G=) ;
             }