diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-05-24 19:00:59 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-05-24 19:00:59 +0000 |
commit | 07991e262cba7e80011ef6d311c2c055851ec7b8 (patch) | |
tree | 796177c4f4296958e870e12d0db455da7ac18d9a /modules/GHSProjectCreator.pm | |
parent | 68e71772b8ab679d0c83fb7d76d12c194a93b115 (diff) | |
download | MPC-07991e262cba7e80011ef6d311c2c055851ec7b8.tar.gz |
ChangeLogTag: Tue May 24 13:57:42 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/GHSProjectCreator.pm')
-rw-r--r-- | modules/GHSProjectCreator.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/GHSProjectCreator.pm b/modules/GHSProjectCreator.pm index 07af5688..dbecd577 100644 --- a/modules/GHSProjectCreator.pm +++ b/modules/GHSProjectCreator.pm @@ -56,7 +56,7 @@ sub fill_value { $value = $self->relative($self->get_assignment($1)); if (defined $value && ($value =~ /^\.\.?$/ || $value =~ /^\.\.?\//)) { - my($top) = $self->getstartdir(); + my($top) = $self->escape_regex_special($self->getstartdir()); my($part) = $self->getcwd(); $part =~ s/^$top[\/]?//; if ($part ne '') { @@ -70,7 +70,7 @@ sub fill_value { } } elsif ($name eq 'reltop') { - my($top) = $self->getstartdir(); + my($top) = $self->escape_regex_special($self->getstartdir()); $value = $self->getcwd(); $value =~ s/^$top[\/]?//; if ($value eq '') { |