This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[ID 19990819.002] File::Find error when pruning top-level directories
authorRuss Allbery <rra@stanford.edu>
Thu, 19 Aug 1999 04:35:44 +0000 (21:35 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 20 Sep 1999 03:45:06 +0000 (03:45 +0000)
Message-Id: <yl7lms9f5b.fsf@windlord.stanford.edu>

p4raw-id: //depot/perl@4200

lib/File/Find.pm

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