Perl 5.001

[perl5.git] / lib / pwd.pl

diff --git a/lib/pwd.pl b/lib/pwd.pl
index 0cc3d4e..beb5916 100644 (file)
--- a/lib/pwd.pl
+++ b/lib/pwd.pl
@@ -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;