Document that File::Find doesn't follow symlinks
[p5sagit/p5-mst-13.2.git] / lib / pwd.pl
index 0cc3d4e..beb5916 100644 (file)
@@ -34,6 +34,7 @@ sub main'initpwd {
 
 sub main'chdir {
     local($newdir) = shift;
+    $newdir =~ s|/{2,}|/|g;
     if (chdir $newdir) {
        if ($newdir =~ m#^/#) {
            $ENV{'PWD'} = $newdir;