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?
[download]

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;
[download]

Thanks!