d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Add Config.pm to fight situations when perldoc(1) showed a manual page

Browse Source 
for a module overridden by BSDPAN instead of the original module.

* Fix wrong manual section numbers in SEE ALSO.

* Add `Revision 42' to the beer-ware license.  The BSDPAN author did not
  originally get the reference and removed the revision from original
  phk's version.

Submitted by:	Anton Berezin <tobez@tobez.org>
This commit is contained in:
Josef Karthauser 2001-05-01 09:25:24 +00:00
parent 82633431b3
commit f383120181
6 changed files with 94 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/usr.bin/perl/BSDPAN/BSDPAN.pm
View File

@ -1,5 +1,5 @@
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE"
# "THE BEER-WARE LICENSE" (Revision 42)
# <tobez@tobez.org> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return. Anton Berezin
@ -113,7 +113,7 @@ Anton Berezin, tobez@tobez.org
=head1 SEE ALSO
perl(1), ExtUtils::MakeMaker(1), L<BSDPAN::Override(1)>,
L<BSDPAN::ExtUtils::MM_Unix(1)>, L<BSDPAN::ExtUtils::Packlist(1)>.
perl(1), ExtUtils::MakeMaker(3), L<BSDPAN::Override(3)>,
L<BSDPAN::ExtUtils::MM_Unix(3)>, L<BSDPAN::ExtUtils::Packlist(3)>.
=cut

4
gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm
View File

@ -1,5 +1,5 @@
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE"
# "THE BEER-WARE LICENSE" (Revision 42)
# <tobez@tobez.org> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return. Anton Berezin
@ -148,6 +148,6 @@ Anton Berezin, tobez@tobez.org
=head1 SEE ALSO
perl(1), L<BSDPAN(1)>.
perl(1), L<BSDPAN(3)>.
=cut

84
gnu/usr.bin/perl/BSDPAN/Config.pm Normal file
View File

@ -0,0 +1,84 @@
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE" (Revision 42)
# <tobez@tobez.org> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return. Anton Berezin
# ----------------------------------------------------------------------------
#
# $FreeBSD$
#
package BSDPAN::Config;
use strict;
use BSDPAN;
sub bsdpan_no_override
{
my $bsdpan_path = BSDPAN->path;
my @ninc;
for my $inc_component (@INC) {
push @ninc, $inc_component
unless $inc_component eq $bsdpan_path;
}
@INC = (@ninc, $bsdpan_path);
}
BEGIN {
if ($0 =~ m|/bin/perldoc$|) {
bsdpan_no_override();
# Also, add bsdpan_path/.. to @INC, so that perldoc
# BSDPAN::ExtUtils::MM_Unix and friends will work as
# expected.
push @INC, BSDPAN->path() . "/..";
}
}
use BSDPAN::Override;
1;
=head1 NAME
BSDPAN::Config - disable BSDPAN functionality if needed
=head1 SYNOPSIS
None
=head1 DESCRIPTION
When perldoc(1) is invoked, this module:
=over 4
=item *
Moves the path to BSDPAN(3) from the beginning of @INC to the end of
@INC.
=item *
Adds the parent directory of the path to BSDPAN(3) to the end of @INC,
so that
perldoc BSDPAN::Some::Module::BSDPAN::Overrides
does the right thing.
=back
This modules has no other effects.
=head1 AUTHOR
Anton Berezin, tobez@tobez.org
=head1 SEE ALSO
perl(1), L<BSDPAN(3)>, L<BSDPAN::Override(3)>, perldoc(1).
=head1 BUGS
This module is a hack.
=cut

4
gnu/usr.bin/perl/BSDPAN/ExtUtils/MM_Unix.pm
View File

@ -1,5 +1,5 @@
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE"
# "THE BEER-WARE LICENSE" (Revision 42)
# <tobez@tobez.org> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return. Anton Berezin
@ -107,6 +107,6 @@ Anton Berezin, tobez@tobez.org
=head1 SEE ALSO
perl(1), L<BSDPAN(1)>, L<BSDPAN::Override(1)>, ports(7).
perl(1), L<BSDPAN(3)>, L<BSDPAN::Override(3)>, ports(7).
=cut

4
gnu/usr.bin/perl/BSDPAN/ExtUtils/Packlist.pm
View File

@ -1,5 +1,5 @@
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE"
# "THE BEER-WARE LICENSE" (Revision 42)
# <tobez@tobez.org> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return. Anton Berezin
@ -332,6 +332,6 @@ Anton Berezin, tobez@tobez.org
=head1 SEE ALSO
perl(1), L<BSDPAN(1)>, L<BSDPAN::Override(1)>, pkg_create(1).
perl(1), L<BSDPAN(3)>, L<BSDPAN::Override(3)>, pkg_create(1).
=cut

2
gnu/usr.bin/perl/BSDPAN/Makefile
View File

@ -8,7 +8,7 @@ NOOBJ= noobj
all clean cleandir depend lint tags:
FILES= BSDPAN.pm BSDPAN/Override.pm ExtUtils/MM_Unix.pm ExtUtils/Packlist.pm
FILES= BSDPAN.pm BSDPAN/Override.pm Config.pm ExtUtils/MM_Unix.pm ExtUtils/Packlist.pm
.for file in ${FILES}
beforeinstall::