diff --git a/gnu/usr.bin/perl/BSDPAN/BSDPAN.pm b/gnu/usr.bin/perl/BSDPAN/BSDPAN.pm index 0ce6bbcd5ec5..8b9e3f3d6fd4 100644 --- a/gnu/usr.bin/perl/BSDPAN/BSDPAN.pm +++ b/gnu/usr.bin/perl/BSDPAN/BSDPAN.pm @@ -1,5 +1,5 @@ # ---------------------------------------------------------------------------- -# "THE BEER-WARE LICENSE" +# "THE BEER-WARE LICENSE" (Revision 42) # 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, -L, L. +perl(1), ExtUtils::MakeMaker(3), L, +L, L. =cut diff --git a/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm b/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm index c11cd7a0ce4c..10dc2d610a87 100644 --- a/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm +++ b/gnu/usr.bin/perl/BSDPAN/BSDPAN/Override.pm @@ -1,5 +1,5 @@ # ---------------------------------------------------------------------------- -# "THE BEER-WARE LICENSE" +# "THE BEER-WARE LICENSE" (Revision 42) # 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. +perl(1), L. =cut diff --git a/gnu/usr.bin/perl/BSDPAN/Config.pm b/gnu/usr.bin/perl/BSDPAN/Config.pm new file mode 100644 index 000000000000..6391eb7a3edc --- /dev/null +++ b/gnu/usr.bin/perl/BSDPAN/Config.pm @@ -0,0 +1,84 @@ +# ---------------------------------------------------------------------------- +# "THE BEER-WARE LICENSE" (Revision 42) +# 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, L, perldoc(1). + +=head1 BUGS + +This module is a hack. + +=cut diff --git a/gnu/usr.bin/perl/BSDPAN/ExtUtils/MM_Unix.pm b/gnu/usr.bin/perl/BSDPAN/ExtUtils/MM_Unix.pm index 5bfcf5938390..c60b7826a354 100644 --- a/gnu/usr.bin/perl/BSDPAN/ExtUtils/MM_Unix.pm +++ b/gnu/usr.bin/perl/BSDPAN/ExtUtils/MM_Unix.pm @@ -1,5 +1,5 @@ # ---------------------------------------------------------------------------- -# "THE BEER-WARE LICENSE" +# "THE BEER-WARE LICENSE" (Revision 42) # 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, L, ports(7). +perl(1), L, L, ports(7). =cut diff --git a/gnu/usr.bin/perl/BSDPAN/ExtUtils/Packlist.pm b/gnu/usr.bin/perl/BSDPAN/ExtUtils/Packlist.pm index 24a39a9fbbc2..d9302d01dee3 100644 --- a/gnu/usr.bin/perl/BSDPAN/ExtUtils/Packlist.pm +++ b/gnu/usr.bin/perl/BSDPAN/ExtUtils/Packlist.pm @@ -1,5 +1,5 @@ # ---------------------------------------------------------------------------- -# "THE BEER-WARE LICENSE" +# "THE BEER-WARE LICENSE" (Revision 42) # 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, L, pkg_create(1). +perl(1), L, L, pkg_create(1). =cut diff --git a/gnu/usr.bin/perl/BSDPAN/Makefile b/gnu/usr.bin/perl/BSDPAN/Makefile index b0b5e5558c95..701712f07213 100644 --- a/gnu/usr.bin/perl/BSDPAN/Makefile +++ b/gnu/usr.bin/perl/BSDPAN/Makefile @@ -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::