diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-12-30 19:08:07 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-12-30 19:08:07 +0000 |
| commit | 3f9a9cba2d23e7d1b6df6fe036b2dbecb095058c (patch) | |
| tree | ff883aab622af2a317bef4e8f4c19b83a4675659 /modules/Parser.pm | |
| parent | daba1f66817ba27fd8702cdd1cf2e16176d782b6 (diff) | |
| download | MPC-3f9a9cba2d23e7d1b6df6fe036b2dbecb095058c.tar.gz | |
ChangeLogTag: Tue Dec 30 13:02:09 2003 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Parser.pm')
| -rw-r--r-- | modules/Parser.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/modules/Parser.pm b/modules/Parser.pm index 7977ae1a..f03fd2c5 100644 --- a/modules/Parser.pm +++ b/modules/Parser.pm @@ -23,6 +23,13 @@ use vars qw(@ISA); # ************************************************************ my($cwd) = Cwd::getcwd(); +if ($^O eq 'cygwin' && $cwd !~ /[A-Za-z]:/) { + my($cyg) = `cygpath -w $cwd`; + if (defined $cyg) { + $cyg =~ s/\\/\//g; + chop($cwd = $cyg); + } + } # ************************************************************ # Subroutine Section @@ -55,6 +62,13 @@ sub cd { ## then we just get the real working directory if ($dir =~ /\.\./) { $cwd = Cwd::getcwd(); + if ($^O eq 'cygwin' && $cwd !~ /[A-Za-z]:/) { + my($cyg) = `cygpath -w $cwd`; + if (defined $cyg) { + $cyg =~ s/\\/\//g; + chop($cwd = $cyg); + } + } } else { if ($dir =~ /^\// || $dir =~ /^[A-Za-z]:/) { |