diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2002-07-09 13:10:53 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2002-07-09 13:10:53 +0000 |
| commit | 3e12f92ac8d271df273bcf1142a94300bfc75716 (patch) | |
| tree | c1fd4f75ed4997b00195cd02e7d6be12708446f6 | |
| parent | d17f1a0910afd06780231de178b230a8a61c903e (diff) | |
| download | MPC-3e12f92ac8d271df273bcf1142a94300bfc75716.tar.gz | |
ChangeLogTag: Tue Jul 9 08:07:20 2002 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | modules/TemplateParser.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm index 3e7e726f..f7560f8a 100644 --- a/modules/TemplateParser.pm +++ b/modules/TemplateParser.pm @@ -177,8 +177,17 @@ sub relative { while(substr($value, $start) =~ /(\$\(([^)]+)\))/) { my($whole) = $1; my($name) = $2; - my($val) = $$rel{$name}; + my($val) = $$rel{$name}; if (defined $val) { + if ($^O eq 'cygwin' && + $cwd !~ /[A-Za-z]:/ && $val =~ /[A-Za-z]:/) { + my($cyg) = `cygpath -w $cwd`; + if (defined $cyg) { + $cyg =~ s/\\/\//g; + chop($cwd = $cyg); + } + } + ## Fix up the value for Windows (capitalize the drive and ## switch the \\'s to / $val =~ s/\\/\//g; |