diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2002-07-09 12:48:27 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2002-07-09 12:48:27 +0000 |
| commit | d17f1a0910afd06780231de178b230a8a61c903e (patch) | |
| tree | 149461dd02575444c215e348fce3d9c1931f3b98 | |
| parent | c952551333647f0412a4817a3b627362789f2ae1 (diff) | |
| download | MPC-d17f1a0910afd06780231de178b230a8a61c903e.tar.gz | |
ChangeLogTag: Tue Jul 9 07:46:57 2002 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | modules/TemplateParser.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/modules/TemplateParser.pm b/modules/TemplateParser.pm index e16ceae3..3e7e726f 100644 --- a/modules/TemplateParser.pm +++ b/modules/TemplateParser.pm @@ -179,7 +179,13 @@ sub relative { my($name) = $2; my($val) = $$rel{$name}; if (defined $val) { + ## Fix up the value for Windows (capitalize the drive and + ## switch the \\'s to / $val =~ s/\\/\//g; + if ($val =~ /[a-z]:\//) { + substr($val, 0, 1) = uc(substr($val, 0, 1)); + } + if (index($cwd, $val) == 0) { my($count) = 0; substr($cwd, 0, length($val)) = ""; |