summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm
index a93626b618e..6a5a6cf9a48 100644
--- a/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm
+++ b/Master/tlpkg/tlperl/lib/CPANPLUS/Internals/Search.pm
@@ -19,7 +19,7 @@ $Params::Check::VERBOSE = 1;
=head1 NAME
-CPANPLUS::Internals::Search
+CPANPLUS::Internals::Search - internals for searching for modules
=head1 SYNOPSIS
@@ -163,7 +163,7 @@ sub _search_module_tree {
} or return;
### a list of module objects was supplied
- if( @$mods ) {
+ if( @$mods ) {
local $Params::Check::VERBOSE = 0;
my @rv;
@@ -242,7 +242,7 @@ sub _search_author_tree {
my $args = check( $tmpl, \%hash ) or return;
- if( @$authors ) {
+ if( @$authors ) {
local $Params::Check::VERBOSE = 0;
my @rv;
@@ -258,7 +258,7 @@ sub _search_author_tree {
my @rv = $self->_source_search_author_tree(
allow => $list,
type => $type,
- );
+ );
return \@rv;
}
}
@@ -302,18 +302,18 @@ sub _all_installed {
for my $dir (@INC ) {
next if $dir eq '.';
- ### not a directory after all
+ ### not a directory after all
### may be coderef or some such
next unless -d $dir;
### make sure to clean up the directories just in case,
### as we're making assumptions about the length
### This solves rt.cpan issue #19738
-
- ### John M. notes: On VMS cannonpath can not currently handle
+
+ ### John M. notes: On VMS cannonpath can not currently handle
### the $dir values that are in UNIX format.
$dir = File::Spec->canonpath( $dir ) unless ON_VMS;
-
+
### have to use F::S::Unix on VMS, or things will break
my $file_spec = ON_VMS ? 'File::Spec::Unix' : 'File::Spec';
@@ -328,15 +328,15 @@ sub _all_installed {
### make sure it's in Unix format, as it
### may be in VMS format on VMS;
- $mod = VMS::Filespec::unixify( $mod ) if ON_VMS;
-
+ $mod = VMS::Filespec::unixify( $mod ) if ON_VMS;
+
$mod = substr($mod, length($dir) + 1, -3);
$mod = join '::', $file_spec->splitdir($mod);
return if $seen{$mod}++;
my $modobj = $self->module_tree($mod);
-
+
### separate return, a list context return with one ''
### in it, is also true!
return unless $modobj;