ChangeLogTag: Thu Apr 24 08:14:42 2003 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 20 insertions, 7 deletions

diff --git a/modules/Parser.pm b/modules/Parser.pm
index 1f2b14d3..54d4409a 100644
--- a/modules/Parser.pm
+++ b/modules/Parser.pm
@@ -44,12 +44,25 @@ sub cd {
   my($self)   = shift;
   my($dir)    = shift;
   my($status) = chdir($dir);
+
   if ($status && $dir ne '.') {
-    if ($dir =~ /^\// || $dir =~ /^[A-Za-z]:/) {
-      $cwd = $dir;
+    ## First strip out any /./ or ./ or /.
+    $dir =~ s/\/\.\//\//g;
+    $dir =~ s/^\.\///;
+    $dir =~ s/\/\.$//;
+
+    ## If the new directory contains a relative directory
+    ## then we just get the real working directory
+    if ($dir =~ /\.\./) {
+      $cwd = Cwd::getcwd();
     }
     else {
-      $cwd .= "/$dir";
+      if ($dir =~ /^\// || $dir =~ /^[A-Za-z]:/) {
+        $cwd = $dir;
+      }
+      else {
+        $cwd .= "/$dir";
+      }
     }
   }
   return $status;
@@ -141,16 +154,16 @@ sub get_include_path {
 
 
 sub search_include_path {
-  my($self)  = shift; 
-  my($file)  = shift; 
-  my($found) = undef; 
+  my($self)  = shift;
+  my($file)  = shift;
+  my($found) = undef;
 
   foreach my $include (@{$self->{'include'}}, '.') {
     if (-r "$include/$file") {
       $found = "$include/$file";
       last;
     }
-  }  
+  }
   return $found;
 }