The lib/Pod/Perldoc.pm portion of...

Subject:  [PATCH] Various Gentoo Patches
Message-ID: <20070718171758.77912ed4@r2d2>

p4raw-id: //depot/perl@31628

diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
index f64e243..8bc0a6d 100644 (file)
--- a/lib/Pod/Perldoc.pm
+++ b/lib/Pod/Perldoc.pm
@@ -1557,6 +1557,7 @@ sub searchfor {
     $self->{'target'} = (splitdir $s)[-1];  # XXX: why not use File::Basename?
     for ($i=0; $i<@dirs; $i++) {
        $dir = $dirs[$i];
+       next unless -d $dir;
        ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if IS_VMS;
        if (       (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod")))
                or ( $ret = $self->check_file($dir,"$s.pm"))