The lib/Pod/Perldoc.pm portion of...
Marcus Holland-Moritz [Wed, 18 Jul 2007 17:17:58 +0000 (19:17 +0200)]
Subject:  [PATCH] Various Gentoo Patches
Message-ID: <20070718171758.77912ed4@r2d2>

p4raw-id: //depot/perl@31628

lib/Pod/Perldoc.pm

index f64e243..8bc0a6d 100644 (file)
@@ -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"))