blob: 650248c509e80d3e68b242dcd4601d4eef2dca29 (
plain)
1
2
3
4
5
6
7
8
9
10
|
--- lib/Pod/Perldoc.pm.orig 2003-10-22 13:02:15.000000000 -0700
+++ lib/Pod/Perldoc.pm 2003-10-22 13:02:36.000000000 -0700
@@ -1513,6 +1513,7 @@
$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"))
|
GitWeb
