diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2010-11-12 08:53:57 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2010-11-12 08:53:57 +0000 |
commit | 7bfc896c33313d0210ef67e48bf65755a1df05cd (patch) | |
tree | 1216fa281ae131b7131dbc277da145100ec9f866 | |
parent | c1cb3f5c9ed8a767a3db747fdebaed50f244cd54 (diff) | |
download | MPC-7bfc896c33313d0210ef67e48bf65755a1df05cd.tar.gz |
Fri Nov 12 08:49:38 UTC 2010 Johnny Willemsen <jwillemsen@remedy.nl>
* modules/TemplateParser.pm:
Committed fix from Adam Mitz that fixed problems with dds4ccm and
cdt6/cdt7
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | modules/TemplateParser.pm | 6 |
2 files changed, 9 insertions, 3 deletions
@@ -1,3 +1,9 @@ +Fri Nov 12 08:49:38 UTC 2010 Johnny Willemsen <jwillemsen@remedy.nl> + + * modules/TemplateParser.pm: + Committed fix from Adam Mitz that fixed problems with dds4ccm and + cdt6/cdt7 + Wed Nov 10 02:28:28 UTC 2010 James H. Hill <hillj at cs dot iupui dot edu> * config/splice_ts_defaults.mpb: diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm index 85dc6705..4bfa7cbb 100644 --- a/modules/TemplateParser.pm +++ b/modules/TemplateParser.pm @@ -1891,9 +1891,9 @@ sub perform_translate_vars { my ($pre, $post) = ($os eq 'win32') ? ('%', '%') : ('${', '}'); ## Replace $() with the environment variable reference characters. - $val =~ s[\$\(([^)]+)\)(\S*)][my ($var, $rest) = ($1, $2); - $rest =~ s!/!\\!g if $os eq 'win32'; - "$pre$var$post$rest"]ge; + $val =~ s{\$\(([^)]+)\)([^\s\$]*)}{my ($var, $rest) = ($1, $2); + $rest =~ s!/!\\!g if $os eq 'win32'; + "$pre$var$post$rest"}ge; return $val; } |