From: Russ Allbery <rra@stanford.edu>
Date: Thu, 19 Aug 1999 04:35:44 +0000 (-0700)
Subject: [ID 19990819.002] File::Find error when pruning top-level directories
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17b275ff7f254c13ec0fa07c81e929826b830a85;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;
     }
 }