Help for this page

Select Code to Download


  1. or download this
    sub prep {
        my $depth = $File::Find::dir =~ tr[/][];
        return if $depth > $max_depth;
        return grep -d "$File::Find::dir/$_", @_ if $depth < $min_depth;
        @_;
    }