File: 20Search.pm.patch

package info (click to toggle)
libperldoc-search-perl 0.01-4
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 100 kB
  • sloc: perl: 91; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 873 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Author: Florian Ragwitz <florian.ragwitz@s2004.tu-chemnitz.de>
Description: Add all installvendorlib and installvendorarch to the search directories
Don't die if we can't chdir to a directory which does not exist
--- a/lib/Perldoc/Search.pm
+++ b/lib/Perldoc/Search.pm
@@ -21,6 +21,8 @@ sub new {
                  $Config{installsitelib},
                  $Config{installarchlib},
                  $Config{installprivlib},
+                 $Config{installvendorlib},
+                 $Config{installvendorarch}
                 ],
         swish_options => {
             swish_adm_dir => "$ENV{HOME}/.perldig",
@@ -32,6 +34,7 @@ sub new {
         # will figure out the real paths
     for(@{$self->{dirs}}) {
         my $cwd = cwd();
+        next unless -e;
         chdir $_ or die "Cannot cwd to $_";
         $_ = File::Spec->rel2abs(".");
         chdir $cwd;