Help for this page

Select Code to Download


  1. or download this
    @path{@INC} = ();
    # Then later in the find sub, we see:
    ...
    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. or download this
    $name = substr $File::Find::name, length $File::Find::topdir;