From 9b73d50338e55ae670651dd9bb626d435e7779f9 Mon Sep 17 00:00:00 2001 From: "Peter J. Acklam" Date: Thu, 6 Jan 2011 23:07:02 -0800 Subject: [PATCH] Fix typos (spelling errors) in cpan/CPANPLUS/*. # New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81788] # in the subject line of all future correspondence about this issue. # Signed-off-by: Chris 'BinGOs' Williams --- cpan/CPANPLUS/bin/cpan2dist | 2 +- cpan/CPANPLUS/lib/CPANPLUS.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Backend.pm | 5 +++-- cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Config.pm | 6 +++--- cpan/CPANPLUS/lib/CPANPLUS/Configure.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Dist.pm | 6 +++--- cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Internals.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm | 8 ++++---- cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Module.pm | 4 ++-- cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Shell.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm | 2 +- cpan/CPANPLUS/t/01_CPANPLUS-Configure.t | 2 +- cpan/CPANPLUS/t/08_CPANPLUS-Backend.t | 4 ++-- cpan/CPANPLUS/t/15_CPANPLUS-Shell.t | 2 +- cpan/CPANPLUS/t/19_CPANPLUS-Dist.t | 2 +- cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t | 2 +- cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t | 2 +- cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t | 2 +- cpan/CPANPLUS/t/inc/conf.pl | 2 +- 30 files changed, 47 insertions(+), 46 deletions(-) diff --git a/cpan/CPANPLUS/bin/cpan2dist b/cpan/CPANPLUS/bin/cpan2dist index 2fcbdf7..d12adb1 100644 --- a/cpan/CPANPLUS/bin/cpan2dist +++ b/cpan/CPANPLUS/bin/cpan2dist @@ -582,7 +582,7 @@ if you like, or supply your own if need be. =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. diff --git a/cpan/CPANPLUS/lib/CPANPLUS.pm b/cpan/CPANPLUS/lib/CPANPLUS.pm index 61284c3..bd65595 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS.pm @@ -157,7 +157,7 @@ the two following commands: $ 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 or L for instructions on using the default shell. diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Backend.pm b/cpan/CPANPLUS/lib/CPANPLUS/Backend.pm index a599e54..f7b9b92 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Backend.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Backend.pm @@ -492,7 +492,7 @@ sub parse_module { 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, '..' ) ); @@ -1162,7 +1162,8 @@ sub save_state { ### 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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm b/cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm index 9edbe04..e861a09 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm @@ -34,7 +34,7 @@ CPANPLUS::Backend::RV $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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Config.pm b/cpan/CPANPLUS/lib/CPANPLUS/Config.pm index 06c23d2..91e152a 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Config.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Config.pm @@ -57,7 +57,7 @@ their meaning. =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' ], @@ -225,7 +225,7 @@ Defaults to C =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; @@ -637,7 +637,7 @@ with CPANPLUS, which is used to enable autoflushing in spawned processes. $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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm index baac91d..232d6d1 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm @@ -336,7 +336,7 @@ sub save { } 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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm b/cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm index 3bcf8f4..b6f34f2 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm @@ -1203,7 +1203,7 @@ are done. #$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 "); @@ -1373,7 +1373,7 @@ This may take a while... "); - ### use the enew configuratoin ### + ### use the new configuration ### $cpan->configure_object( $conf ); load CPANPLUS::Module::Fake; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Dist.pm b/cpan/CPANPLUS/lib/CPANPLUS/Dist.pm index 70010d4..f0d474f 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Dist.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Dist.pm @@ -96,7 +96,7 @@ The optional argument C is used to indicate what type of dist you would like to create (like C or C 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. Returns a C object on success @@ -301,7 +301,7 @@ sub find_configure_requires { 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; @@ -324,7 +324,7 @@ sub find_mymeta_requires { 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; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm b/cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm index c7108ed..c8bd824 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm @@ -102,7 +102,7 @@ The C object is implemented as an instance of the C 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 implementation does not alter your object diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm b/cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm index 5787f1d..bd85b6b 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm @@ -258,9 +258,9 @@ sub prepare { ### 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( diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod b/cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod index 1a28b9e..6a754fb 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod +++ b/cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod @@ -49,7 +49,7 @@ from there. =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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm index 1e934fc..0aa3853 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm @@ -182,7 +182,7 @@ Returns the object on success, or dies on failure. ### 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() ), @@ -255,7 +255,7 @@ be flushed. @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} ) { diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm index 84a48a5..e753eeb 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm @@ -165,7 +165,7 @@ sub _extract { ### 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; @@ -178,7 +178,7 @@ sub _extract { ### 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}; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm index 395965b..7dcb3c3 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm @@ -122,7 +122,7 @@ sub _fetch { 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( @@ -280,7 +280,7 @@ sub _fetch { ### 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 diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm index dd9a99a..e55c04a 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm @@ -332,7 +332,7 @@ sub _send_report { 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 ) { @@ -529,7 +529,7 @@ sub _send_report { $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 ### diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm index 63c4da6..a93626b 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm @@ -337,7 +337,7 @@ sub _all_installed { 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; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm index 54e9d71..9637004 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm @@ -204,7 +204,7 @@ sub _build_trees { ### 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 ) { @@ -890,7 +890,7 @@ sub _dslip_defs { 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 @@ -1340,7 +1340,7 @@ Returns true on success, false on failure. =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; @@ -1391,7 +1391,7 @@ Returns true on success, false on failure. $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 ) ) { diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm index 3830750..556be64 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm @@ -273,7 +273,7 @@ sub __sqlite_create_db { 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; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Module.pm b/cpan/CPANPLUS/lib/CPANPLUS/Module.pm index 3683ab8..efeb4b2 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Module.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Module.pm @@ -780,7 +780,7 @@ sub dist { "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 @@ -1450,7 +1450,7 @@ sub uninstall { 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; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm b/cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm index 92940fa..0daac67 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm @@ -131,7 +131,7 @@ sub modules { 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], ); diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Shell.pm b/cpan/CPANPLUS/lib/CPANPLUS/Shell.pm index 854d46b..e3eb181 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Shell.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Shell.pm @@ -299,7 +299,7 @@ sub _pager_close { 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, @_ ) ); diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm b/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm index a71dcf0..ca507b7 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm @@ -142,7 +142,7 @@ CPANPLUS::Shell::Default cpanp> q # quit the shell - cpanp> /plugins # list avialable plugins + cpanp> /plugins # list available plugins cpanp> /? PLUGIN # list help test of ### common options: diff --git a/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t b/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t index fc02640..6ade060 100644 --- a/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t +++ b/cpan/CPANPLUS/t/01_CPANPLUS-Configure.t @@ -94,7 +94,7 @@ for my $cat ( $r->ls_accessors ) { } ### 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" ); diff --git a/cpan/CPANPLUS/t/08_CPANPLUS-Backend.t b/cpan/CPANPLUS/t/08_CPANPLUS-Backend.t index 73611e8..d2a93c1 100644 --- a/cpan/CPANPLUS/t/08_CPANPLUS-Backend.t +++ b/cpan/CPANPLUS/t/08_CPANPLUS-Backend.t @@ -242,9 +242,9 @@ ok( IS_CONFOBJ->(conf => $conf_obj), "Configure object found" ); 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) { diff --git a/cpan/CPANPLUS/t/15_CPANPLUS-Shell.t b/cpan/CPANPLUS/t/15_CPANPLUS-Shell.t index c452891..f35d108 100644 --- a/cpan/CPANPLUS/t/15_CPANPLUS-Shell.t +++ b/cpan/CPANPLUS/t/15_CPANPLUS-Shell.t @@ -135,7 +135,7 @@ isa_ok( $Shell, $Default, " Object" ); __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 diff --git a/cpan/CPANPLUS/t/19_CPANPLUS-Dist.t b/cpan/CPANPLUS/t/19_CPANPLUS-Dist.t index ee7b564..430e03d 100644 --- a/cpan/CPANPLUS/t/19_CPANPLUS-Dist.t +++ b/cpan/CPANPLUS/t/19_CPANPLUS-Dist.t @@ -96,7 +96,7 @@ ok( $Mod, "Got module object" ); { local $CPANPLUS::Dist::_Test::Available = 0; ok( !$Module->format_available, - "Format availabillity turned off" ); + "Format availability turned off" ); { $conf->_set_build('sanity_check' => 0); diff --git a/cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t b/cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t index 39b3d0d..7837f03 100644 --- a/cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t +++ b/cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t @@ -268,7 +268,7 @@ SKIP: { 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; diff --git a/cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t b/cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t index 55007ba..5ccdf9f 100644 --- a/cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t +++ b/cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t @@ -88,7 +88,7 @@ ok( not grep { $_ eq $Inst } CPANPLUS::Dist->dist_types, " 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" ); } diff --git a/cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t b/cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t index a816faa..4a6d6bc 100644 --- a/cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t +++ b/cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t @@ -75,7 +75,7 @@ my $Prereq = { $Dep => 0 }; } is_deeply( $Conf, $Class->_get_config, - "Config updated succesfully" ); + "Config updated successfully" ); my @cat = $CB->$Acc->list_categories; ok( scalar(@cat), "Category list returned" ); diff --git a/cpan/CPANPLUS/t/inc/conf.pl b/cpan/CPANPLUS/t/inc/conf.pl index 44b358c..a241bf1 100644 --- a/cpan/CPANPLUS/t/inc/conf.pl +++ b/cpan/CPANPLUS/t/inc/conf.pl @@ -165,7 +165,7 @@ sub gimme_conf { ### 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 -- 2.7.4