summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPANPLUS/Module.pm17
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 ));