From 44bbecd5b6758601d59c6882730db9becf115306 Mon Sep 17 00:00:00 2001
From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 18 Jul 2007 19:17:58 +0200
Subject: [PATCH] The lib/Pod/Perldoc.pm portion of...

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

p4raw-id: //depot/perl@31628
---
 lib/Pod/Perldoc.pm | 1 +
 1 file changed, 1 insertion(+)

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