diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 0f43c36c1b..0bb45424f8 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -195,7 +195,11 @@ sub minus_f_nocase { if($recurse) { opendir(D,$dir); - my(@newdirs) = grep(-d,map("$dir/$_",grep(!/^\.\.?$/,readdir(D)))); + my @newdirs = map "$dir/$_", grep { + not /^\.\.?$/ and + not /^auto$/ and # save time! don't search auto dirs + -d "$dir/$_" + } readdir D; closedir(D); @newdirs = map((s/.dir$//,$_)[1],@newdirs) if $Is_VMS; next unless @newdirs; |