Skip Menu |
 

This queue is for tickets about the perlindex CPAN distribution.

Report information
The Basics
Id: 2820
Status: resolved
Worked: 1.2 hours (75 min)
Priority: 0/
Queue: perlindex

People
Owner: ULPFR [...] cpan.org
Requestors: slaven [...] rezic.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.200
Fixed in: (no value)



Subject: Fix indexed directories
Download (untitled) / with headers
text/plain 403b
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
Download perlindex.patch
text/x-diff 3.2k
# # # 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 ####
Fixed in release 1.301.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.