[ID 19990819.002] File::Find error when pruning top-level directories

	Message-Id: <yl7lms9f5b.fsf@windlord.stanford.edu>

p4raw-id: //depot/perl@4200

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 284bf67..28e2e90 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -130,6 +130,8 @@ sub find_opt {
                warn "Can't cd to $dir: $!\n";
            }
        }
+    }
+    continue {
        chdir $cwd;
     }
 }