=pod
You can use this list of regexes to ignore modules matching
-to be listed as prerequisites of a package. Particulaly useful
+to be listed as prerequisites of a package. Particularly useful
if they are bundled with core-perl anyway and they have known
issues building.
$ perl -MCPANPLUS -eshell
-All commans available are listed in the interactive shells
+All commands available are listed in the interactive shells
help menu. See C<cpanp -h> or L<CPANPLUS::Shell::Default>
for instructions on using the default shell.
return $maybe if IS_MODOBJ->( module => $maybe );
}
- ### Special case arbitary file paths such as '.' etc.
+ ### Special case arbitrary file paths such as '.' etc.
if ( $mod and -d File::Spec->rel2abs($mod) ) {
my $dir = File::Spec->rel2abs($mod);
my $parent = File::Spec->rel2abs( File::Spec->catdir( $dir, '..' ) );
### XXX these wrappers are not individually tested! only the underlying
-### code through source.t and indirectly trought he CustomSource plugin.
+### code through source.t and indirectly through he CustomSource plugin.
+
=pod
=head1 CUSTOM MODULE SOURCES
$passed_args = $backend_rv->args; # args passed to function
$ok = $backend_rv->ok; # boolean indication overall
# result of the call
- $function = $backend_rv->fucntion # name of the calling
+ $function = $backend_rv->function # name of the calling
# function
$rv = $backend_rv->rv # the actual return value
# of the calling function
=cut
### BAH! you can't have POD interleaved with a hash
-### declaration.. so declare every entry seperatedly :(
+### declaration.. so declare every entry separately :(
my $Conf = {
'_fetch' => {
'blacklist' => [ 'ftp' ],
=cut
- ### this addresses #32248 which requests a possibillity to
+ ### this addresses #32248 which requests a possibility to
### turn off custom sources
$Conf->{'conf'}->{'enable_custom_sources'} = 1;
$path = $maybe and last BIN if -f $maybe;
### you installed CPANPLUS in a custom prefix,
- ### so go paralel to /that/. PREFIX=/tmp/cp
+ ### so go parallel to /that/. PREFIX=/tmp/cp
### would put cpanp-run-perl in /tmp/cp/bin and
### CPANPLUS.pm in
### /tmp/cp/lib/perl5/site_perl/5.8.8
}
return unless $self->can_save($file);
- ### find only accesors that are not private
+ ### find only accessors that are not private
my @acc = sort grep { $_ !~ /^_/ } $self->conf->ls_accessors;
### for dumping the values
#$self->_pager_open; # host lists might be long
print loc("
-You can enter multiple sites by seperating them by a space.
+You can enter multiple sites by separating them by a space.
For example:
1 4 2 5
");
");
- ### use the enew configuratoin ###
+ ### use the new configuration ###
$cpan->configure_object( $conf );
load CPANPLUS::Module::Fake;
you would like to create (like C<CPANPLUS::Dist::MM> or
C<CPANPLUS::Dist::Build> and so on ).
-C<< CPANPLUS::Dist->new >> is exlusively meant as a method to be
+C<< CPANPLUS::Dist->new >> is exclusively meant as a method to be
inherited by C<CPANPLUS::Dist::MM|Build>.
Returns a C<CPANPLUS::Dist::YOUR_DIST_TYPE_HERE> object on success
keys => [ $meth ],
);
- ### the default file to use, which may be overriden
+ ### the default file to use, which may be overridden
push @args, ( file => META_YML->( $mod->status->extract ) )
if defined $mod->status->extract;
keys => [qw|requires build_requires|],
);
- ### the default file to use, which may be overriden
+ ### the default file to use, which may be overridden
push @args, ( file => MYMETA_YML->( $mod->status->extract ) )
if defined $mod->status->extract;
C<Object::Accessor> class. Please refer to its documentation for
details.
-Return true if the initialization was successul, and false if it was
+Return true if the initialization was successful, and false if it was
not.
The C<CPANPLUS::Dist::Base> implementation does not alter your object
### we resolve 'configure requires' here, so we can run the 'perl
### Makefile.PL' command
### XXX for tests: mock f_c_r to something that *can* resolve and
- ### something that *doesnt* resolve. Check the error log for ok
+ ### something that *doesn't* resolve. Check the error log for ok
### on this step or failure
- ### XXX make a seperate tarball to test for this scenario: simply
+ ### XXX make a separate tarball to test for this scenario: simply
### containing a makefile.pl/build.pl for test purposes?
{ my $configure_requires = $dist->find_configure_requires;
my $ok = $dist->_resolve_prereqs(
=head1 RUNNING CPANPLUS TESTS
Tests are what tells us if CPANPLUS is working. If a test is not working,
-try to run it explicilty like this:
+try to run it explicitly like this:
perl -I/path/to/cpanplus/lib t/XX_name_of_test.t 1
### create a selfupdate object
$args->_selfupdate( CPANPLUS::Selfupdate->new( $args ) );
- ### initalize it as an empty hashref ###
+ ### initialize it as an empty hashref ###
$args->_status->pending_prereqs( {} );
$conf->_set_build( startdir => cwd() ),
@INC = @{$conf->_lib};
### give all modules a new status object -- this is slightly
- ### costly, but the best way to make sure all statusses are
+ ### costly, but the best way to make sure all statuses are
### forgotten --kane
} elsif ( $what eq 'modules' ) {
for my $modobj ( values %{$self->module_tree} ) {
### extracted.. try to offer a suggestion and bail :(
unless ( $ae->files ) {
error( loc( "'%1' was not able to determine extracted ".
- "files from the archive. Instal '%2' and ensure ".
+ "files from the archive. Install '%2' and ensure ".
"it works properly and try again",
$ae->is_zip ? 'Archive::Zip' : 'Archive::Tar' ) );
return;
### set them all to be +w for the owner, so we don't get permission
### denied for overwriting files that are just +r
- ### this is to rigurous -- just change to +w for the owner [cpan #13358]
+ ### this is too rigorous -- just change to +w for the owner [cpan #13358]
#chmod 0755, map { File::Spec->rel2abs( File::Spec->catdir($to, $_) ) }
# @{$ae->files};
my ($remote_file, $local_file, $local_path);
- ### build the local path to downlaod to ###
+ ### build the local path to download to ###
{
$local_path = $args->{fetchdir} ||
File::Spec->catdir(
### D:\foo\bar needs to be encoded as D|\foo\bar
### For details, see the following link:
### http://en.wikipedia.org/wiki/File://
- ### The RFC doesnt seem to address Windows volume
+ ### The RFC doesn't seem to address Windows volume
### descriptors but it does address VMS volume
### descriptors, however wikipedia covers a bit of
### history regarding win32
my $grade;
### check if this is a platform specific module ###
### if we failed the test, there may be reasons why
- ### an 'NA' might have to be insted
+ ### an 'NA' might have to be instead
GRADE: { if ( $failed ) {
$reporter->from( $conf->get_conf('email') )
if $conf->get_conf('email') !~ /\@example\.\w+$/i;
- ### give the user a chance to programattically alter the message
+ ### give the user a chance to programatically alter the message
$message = $self->_callbacks->munge_test_report->($mod, $message, $grade);
### add the body if we have any ###
my $modobj = $self->module_tree($mod);
- ### seperate return, a list context return with one ''
+ ### separate return, a list context return with one ''
### in it, is also true!
return unless $modobj;
### XXX unpleasant hack. since custom sources uses ->parse_module, we
### already have a special module object with extra meta data. that
### doesn't gelwell with the sqlite storage engine. So, we check 'normal'
- ### trees from seperate trees, so the engine can treat them differently.
+ ### trees from separate trees, so the engine can treat them differently.
### Effectively this means that with the SQLite engine, for now, custom
### sources are continuously reparsed =/ -kane
if( not $self->_custom_trees_completed ) {
d => loc('Developer'),
u => loc('Usenet newsgroup comp.lang.perl.modules'),
n => loc('None known, try comp.lang.perl.modules'),
- a => loc('Abandoned; volunteers welcome to take over maintainance'),
+ a => loc('Abandoned; volunteers welcome to take over maintenance'),
}],
# L
=cut
-### use $auth_obj as a persistant version, so we don't have to recreate
+### use $auth_obj as a persistent version, so we don't have to recreate
### modules all the time
{ my $auth_obj;
$mod->author( $auth_obj );
- ### and now add it to the modlue tree -- this MAY
+ ### and now add it to the module tree -- this MAY
### override things of course
if( my $old_mod = $self->module_tree( $mod->module ) ) {
my $self = shift;
my $dbh = $self->__sqlite_dbh;
- ### we can ignore the result/error; not all sqlite implemantation
+ ### we can ignore the result/error; not all sqlite implementations
### support this
$dbh->query( qq[
DROP TABLE IF EXISTS author;
"available, but is not! -- aborting", $type));
return;
} else {
- msg(loc("Installer '%1' succesfully bootstrapped", $type));
+ msg(loc("Installer '%1' successfully bootstrapped", $type));
}
### some other plugin you dont have. Abort
my $dirs = $self->directory_tree( type => $type ) or return;
my $sudo = $conf->get_program('sudo');
- ### just in case there's no file; M::B doensn't provide .packlists yet ###
+ ### just in case there's no file; M::B doesn't provide .packlists yet ###
my $pack = $self->packlist;
$pack = $pack->[0]->packlist_file() if $pack;
my $aref = $cb->_search_module_tree(
type => 'author',
### XXX, depending on backend, this is either an object
- ### or the cpanid string. Dont know an elegant way to
+ ### or the cpanid string. Don't know an elegant way to
### solve this right now, so passing both
allow => [$self, $self->cpanid],
);
my $self = shift;
my $fmt = shift;
- ### MUST specify $fmt as a seperate param, and not as part
+ ### MUST specify $fmt as a separate param, and not as part
### of @_, as it will then miss the $fmt and return the
### number of elements in the list... =/ --kane
$self->__print( sprintf( $fmt, @_ ) );
cpanp> q # quit the shell
- cpanp> /plugins # list avialable plugins
+ cpanp> /plugins # list available plugins
cpanp> /? PLUGIN # list help test of <PLUGIN>
### common options:
}
### make sure this file is now loaded
- ### XXX can't trust bloody dir seperators on Win32 in %INC,
+ ### XXX can't trust bloody dir separators on Win32 in %INC,
### so rather than an exact match, do a grep...
my ($found) = grep /\bTest$$/, values %INC;
ok( $found, " Found $file in \%INC" );
my $none = $cb->parse_module( module => $mod );
ok( !IS_MODOBJ->(mod => $none),
- "Non-existant module detected" );
+ "Non-existent module detected" );
ok( !IS_FAKE_MODOBJ->(mod => $none),
- "Non-existant fake module detected" );
+ "Non-existent fake module detected" );
my $str = CPANPLUS::Error->stack_as_string;
for my $pair (@$aref) {
__END__
-#### test seperately, they have side effects
+#### test separately, they have side effects
'q' => qr/^$/, # no output!
's save boxed' => do { my $re = CONFIG_BOXED; qr/$re/ },
### this doens't write any output
{ local $CPANPLUS::Dist::_Test::Available = 0;
ok( !$Module->format_available,
- "Format availabillity turned off" );
+ "Format availability turned off" );
{ $conf->_set_build('sanity_check' => 0);
ok( $dist->write_makefile_pl( force => 0 ),
" Makefile.PL written" );
like( CPANPLUS::Error->stack_as_string, qr/Already created/,
- " Prior existance noted" );
+ " Prior existence noted" );
### ok, unlink the makefile.pl, now really write one
1 while unlink $makefile;
" Dependency on $Inst recorded" );
like( $diag, qr/Bootstrapping installer.*$Inst/,
" Bootstrap notice recorded" );
- like( $diag, qr/Installer '$Inst' succesfully bootstrapped/,
+ like( $diag, qr/Installer '$Inst' successfully bootstrapped/,
" Successful bootstrap recorded" );
}
}
is_deeply( $Conf, $Class->_get_config,
- "Config updated succesfully" );
+ "Config updated successfully" );
my @cat = $CB->$Acc->list_categories;
ok( scalar(@cat), "Category list returned" );
### cpanp-run-perl installed the same amount of 'uplevels'
### as the /tmp/foo prefix, we'll pull in the wrong script
### by accident.
- ### Since we set the path to cpanp-run-perl explicitily
+ ### Since we set the path to cpanp-run-perl explicitly
### at the top of this script, it's best to update the config
### ourselves with a path lookup, rather than rely on its
### heuristics. Thanks to David Wheeler, Josh Jore and Vincent