diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-07-18 19:17:58 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-07-18 17:37:53 +0000 |
| commit | 44bbecd5b6758601d59c6882730db9becf115306 (patch) | |
| tree | e4df0a6ce9853ca3cc67deb3120a3234794b617c /lib/Pod | |
| parent | 6d7cbd591352f0ae8af1fae75843da57791de28f (diff) | |
| download | perl-44bbecd5b6758601d59c6882730db9becf115306.tar.gz | |
The lib/Pod/Perldoc.pm portion of...
Subject: [PATCH] Various Gentoo Patches
Message-ID: <20070718171758.77912ed4@r2d2>
p4raw-id: //depot/perl@31628
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Perldoc.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm index f64e243114..8bc0a6d88f 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")) |