| Subject: | Fix indexed directories |
In some perl installations, installsitelib is not part of the privlib
directory. That is, privlib is something like /usr/local/lib/perl5/5.8.0
and installsitelib something like /usr/local/lib/perl5/site_perl/5.8.0.
This causes the perlindex indexer not to dive into installsitelib. The
attached patch fixes this. It also appends installvendorlib to the
list of indexed directories.
Regards,
Slaven
#
#
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
# http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####
#### Patch data follows ####
diff -up '/usr/local/dist/cpan/build/perlindex-1.200/perlindex.PL' 'perlindex.PL'
Index: ./perlindex.PL
--- ./perlindex.PL Tue May 27 18:54:24 1997
+++ ./perlindex.PL Wed Jun 18 15:30:00 2003
@@ -90,15 +90,27 @@ $pager= $Config{'pager'};
if ($Config{'osname'} eq 'hpux') {
$pager= "col | $pager";
}
-print OUT <<"EOC"
+print OUT <<"EOC";
\$nroff = \'$Config{'nroff'}\';
\$man1direxp = \'$Config{'man1direxp'}\';
\$man3direxp = \'$Config{'man3direxp'}\';
-\$privlibexp = \'$Config{'privlibexp'}\';
+\@perllib = \'$Config{'installprivlib'}\';
+EOC
+if (index($Config{'installsitelib'}, $Config{'installprivlib'}) != 0) {
+ print OUT <<"EOC";
+push \@perllib,\'$Config{'installsitelib'}\';
+EOC
+}
+if ($Config{'installvendorlib'} && index($Config{'installvendorlib'}, $Config{'installprivlib'}) != 0) {
+ print OUT <<"EOC";
+push \@perllib,\'$Config{'installvendorlib'}\';
+EOC
+}
+print OUT <<"EOC";
\$prefix = \'$Config{'prefix'}\';
\$pager = \'$pager\';
EOC
-;
+;
# Use Term::ReadKey for character-at-a-time input if available.
# Else use "stty cbreak" if BSD, "stty icanon" if non-BSD.
@@ -161,7 +173,7 @@ if ($opt_index) {
or die "Could not tie $IDIR/index_fn: $!\n";
require "find.pl";
- for $dir ($privlibexp) {
+ for $dir (@perllib) {
print "Scanning $dir ... \n";
&find($dir);
}
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Wed Jun 18 15:31:28 2003
# Generated by : makepatch 2.00_07*
# Recurse directories : Yes
# Excluded files : (\A|/).*\~\Z
# (\A|/).*\.a\Z
# (\A|/).*\.bak\Z
# (\A|/).*\.BAK\Z
# (\A|/).*\.elc\Z
# (\A|/).*\.exe\Z
# (\A|/).*\.gz\Z
# (\A|/).*\.ln\Z
# (\A|/).*\.o\Z
# (\A|/).*\.obj\Z
# (\A|/).*\.olb\Z
# (\A|/).*\.old\Z
# (\A|/).*\.orig\Z
# (\A|/).*\.rej\Z
# (\A|/).*\.so\Z
# (\A|/).*\.Z\Z
# (\A|/)\.del\-.*\Z
# (\A|/)\.make\.state\Z
# (\A|/)\.nse_depinfo\Z
# (\A|/)core\Z
# (\A|/)tags\Z
# (\A|/)TAGS\Z
# p 'perlindex.PL' 16958 1055943000 0100755
#### End of ApplyPatch data ####
#### End of Patch kit [created: Wed Jun 18 15:31:28 2003] ####
#### Patch checksum: 78 2627 44354 ####
#### Checksum: 96 3251 30354 ####