diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.8.8/54_debian_perldoc-r.patch')
-rw-r--r-- | meta/recipes-devtools/perl/perl-5.8.8/54_debian_perldoc-r.patch | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.8.8/54_debian_perldoc-r.patch b/meta/recipes-devtools/perl/perl-5.8.8/54_debian_perldoc-r.patch new file mode 100644 index 0000000000..432cd857a7 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.8.8/54_debian_perldoc-r.patch | |||
@@ -0,0 +1,16 @@ | |||
1 | In a Debian installation, not all directories in @INC need exist (the | ||
2 | site directories for example are created on demand). | ||
3 | |||
4 | Suggested by Joey Hess <joeyh@debian.org>. | ||
5 | |||
6 | diff -Naur --exclude=debian perl-5.8.8.orig/lib/Pod/Perldoc.pm perl-5.8.8/lib/Pod/Perldoc.pm | ||
7 | --- perl-5.8.8.orig/lib/Pod/Perldoc.pm 2004-12-29 23:15:33.000000000 +1100 | ||
8 | +++ perl-5.8.8/lib/Pod/Perldoc.pm 2006-02-02 23:38:49.000000000 +1100 | ||
9 | @@ -1533,6 +1533,7 @@ | ||
10 | $self->{'target'} = (splitdir $s)[-1]; # XXX: why not use File::Basename? | ||
11 | for ($i=0; $i<@dirs; $i++) { | ||
12 | $dir = $dirs[$i]; | ||
13 | + next unless -d $dir; # some dirs in @INC are optional | ||
14 | ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if IS_VMS; | ||
15 | if ( (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod"))) | ||
16 | or ( $ret = $self->check_file($dir,"$s.pm")) | ||