Fix bug in getting rid of /./ in pathnames.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2814 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/sbin/cpp.pl b/lib/sbin/cpp.pl
index 94fffe33..58970635 100755
--- a/lib/sbin/cpp.pl
+++ b/lib/sbin/cpp.pl
@@ -284,9 +284,11 @@ sub FindFile
     }
   }
 
-  # Tidy up the path a bit
-  $fullpath =~ s,/./,/,g;
+  # Tidy up the path a bit 
+  # Get rid of /./ in paths
+  $fullpath =~ s,/\./,/,g;
 
+  # Get new current wd.
   if($fullpath)
   {
     $fullpath =~ m,^(.+)/[^/]+$,;