diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm index 4d470c6a71c..4eda894629a 100644 --- a/Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm +++ b/Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm @@ -1,8 +1,9 @@ package CPANPLUS::Module; +use deprecate; use strict; -use vars qw[@ISA]; - +use vars qw[@ISA $VERSION]; +$VERSION = "0.9135"; use CPANPLUS::Dist; use CPANPLUS::Error; @@ -1697,7 +1698,10 @@ sub _extutils_installed { Adds the current modules path to C<@INC> and C<$PERL5LIB>. This allows you to add the module from its build dir to your path. -You can reset C<@INC> and C<$PERL5LIB> to its original state when you +It also adds the current modules C<bin> and/or C<script> paths to +the PATH. + +You can reset C<$PATH>, C<@INC> and C<$PERL5LIB> to their original state when you started the program, by calling: $self->parent->flush('lib'); @@ -1718,6 +1722,13 @@ sub add_to_includepath { ] ) or return; + $cb->_add_to_path( + directories => [ + File::Spec->catdir(BLIB->($dir), SCRIPT), + File::Spec->catdir(BLIB->($dir), BIN), + ] + ) or return; + } else { error(loc( "No extract dir registered for '%1' -- can not add ". "add builddir to search path!", $self->module )); |