From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 18 Jul 2007 17:17:58 +0000 (+0200)
Subject: The lib/Pod/Perldoc.pm portion of...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44bbecd5b6758601d59c6882730db9becf115306;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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"))