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