This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typos (spelling errors) in cpan/CPANPLUS/*.
authorPeter J. Acklam <pjacklam@online.no>
Fri, 7 Jan 2011 07:07:02 +0000 (23:07 -0800)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 7 Jan 2011 11:15:06 +0000 (11:15 +0000)
# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81788]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81788 >

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
30 files changed:
cpan/CPANPLUS/bin/cpan2dist
cpan/CPANPLUS/lib/CPANPLUS.pm
cpan/CPANPLUS/lib/CPANPLUS/Backend.pm
cpan/CPANPLUS/lib/CPANPLUS/Backend/RV.pm
cpan/CPANPLUS/lib/CPANPLUS/Config.pm
cpan/CPANPLUS/lib/CPANPLUS/Configure.pm
cpan/CPANPLUS/lib/CPANPLUS/Configure/Setup.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist/Base.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist/MM.pm
cpan/CPANPLUS/lib/CPANPLUS/Hacking.pod
cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Extract.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Fetch.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Report.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Search.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Source.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm
cpan/CPANPLUS/lib/CPANPLUS/Module.pm
cpan/CPANPLUS/lib/CPANPLUS/Module/Author.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
cpan/CPANPLUS/t/01_CPANPLUS-Configure.t
cpan/CPANPLUS/t/08_CPANPLUS-Backend.t
cpan/CPANPLUS/t/15_CPANPLUS-Shell.t
cpan/CPANPLUS/t/19_CPANPLUS-Dist.t
cpan/CPANPLUS/t/20_CPANPLUS-Dist-MM.t
cpan/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t
cpan/CPANPLUS/t/30_CPANPLUS-Internals-Selfupdate.t
cpan/CPANPLUS/t/inc/conf.pl

index 2fcbdf7..d12adb1 100644 (file)
@@ -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.
 
index 61284c3..bd65595 100644 (file)
@@ -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<cpanp -h> or L<CPANPLUS::Shell::Default> 
 for instructions on using the default shell.  
     
index a599e54..f7b9b92 100644 (file)
@@ -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
index 9edbe04..e861a09 100644 (file)
@@ -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
index 06c23d2..91e152a 100644 (file)
@@ -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<true>
 
 =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
index baac91d..232d6d1 100644 (file)
@@ -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
index 3bcf8f4..b6f34f2 100644 (file)
@@ -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;
index 70010d4..f0d474f 100644 (file)
@@ -96,7 +96,7 @@ The optional argument C<format> is used to indicate what type of dist
 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 
@@ -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;
         
index c7108ed..c8bd824 100644 (file)
@@ -102,7 +102,7 @@ The C<status> object is implemented as an instance of the
 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 
index 5787f1d..bd85b6b 100644 (file)
@@ -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(
index 1a28b9e..6a754fb 100644 (file)
@@ -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
 
index 1e934fc..0aa3853 100644 (file)
@@ -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} ) {
index 84a48a5..e753eeb 100644 (file)
@@ -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};
     
index 395965b..7dcb3c3 100644 (file)
@@ -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
index dd9a99a..e55c04a 100644 (file)
@@ -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 ###
index 63c4da6..a93626b 100644 (file)
@@ -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;
 
index 54e9d71..9637004 100644 (file)
@@ -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 ) ) {
 
index 3830750..556be64 100644 (file)
@@ -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;
index 3683ab8..efeb4b2 100644 (file)
@@ -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;
 
index 92940fa..0daac67 100644 (file)
@@ -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],
                 );
index 854d46b..e3eb181 100644 (file)
@@ -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, @_ ) );
index a71dcf0..ca507b7 100644 (file)
@@ -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 <PLUGIN>                  
 
     ### common options:
index fc02640..6ade060 100644 (file)
@@ -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" );
index 73611e8..d2a93c1 100644 (file)
@@ -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) {
index c452891..f35d108 100644 (file)
@@ -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 
index ee7b564..430e03d 100644 (file)
@@ -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);
 
index 39b3d0d..7837f03 100644 (file)
@@ -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;
index 55007ba..5ccdf9f 100644 (file)
@@ -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" );
 }
 
index a816faa..4a6d6bc 100644 (file)
@@ -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" );
index 44b358c..a241bf1 100644 (file)
@@ -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