I have 2 questions concerning File::Find.
1. Considering the following code snippet, can someone tell me what is going on?
@path{@INC} = ();
# Then later in the find sub, we see:
$File::Find::prune = 1,
return if exists $path{$File::Find::dir} and $File::Find::dir ne $File
+::Find::topdir;
# What is going in the above line? What is the purpose?
2. The following gives me the desired results (the file name without its location), except when the starting directory is /. Why? And what could I do to fix it?
$name = substr $File::Find::name, length $File::Find::topdir;
Thanks!