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 | 88d7ecde2c87af2686db16a75a2f29448c50e11d (patch) | |
| tree | 7ddc350f180e8b84d101805ffca507158063655d | |
| parent | 96b7b7f5f48fce170ff8c2805b40cacc22437716 (diff) | |
| download | ATCD-88d7ecde2c87af2686db16a75a2f29448c50e11d.tar.gz | |
ChangeLogTag: Tue Jul 9 07:46:57 2002 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | ChangeLogs/ChangeLog-03a | 7 | ||||
| -rw-r--r-- | bin/MakeProjectCreator/modules/TemplateParser.pm | 6 |
3 files changed, 20 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog index 6f12a918772..b7e08d677f7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +Tue Jul 9 07:46:57 2002 Chad Elliott <elliott_c@ociweb.com> + + * bin/MakeProjectCreator/modules/TemplateParser.pm: + + Fix up the relative value matching code to work correctly + on Windows. + Tue Jul 9 07:31:48 2002 Chad Elliott <elliott_c@ociweb.com> * ace/ace.mpc: diff --git a/ChangeLogs/ChangeLog-03a b/ChangeLogs/ChangeLog-03a index 6f12a918772..b7e08d677f7 100644 --- a/ChangeLogs/ChangeLog-03a +++ b/ChangeLogs/ChangeLog-03a @@ -1,3 +1,10 @@ +Tue Jul 9 07:46:57 2002 Chad Elliott <elliott_c@ociweb.com> + + * bin/MakeProjectCreator/modules/TemplateParser.pm: + + Fix up the relative value matching code to work correctly + on Windows. + Tue Jul 9 07:31:48 2002 Chad Elliott <elliott_c@ociweb.com> * ace/ace.mpc: diff --git a/bin/MakeProjectCreator/modules/TemplateParser.pm b/bin/MakeProjectCreator/modules/TemplateParser.pm index e16ceae33a0..3e7e726f123 100644 --- a/bin/MakeProjectCreator/modules/TemplateParser.pm +++ b/bin/MakeProjectCreator/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)) = ""; |