[perl #81776] [PATCH] Fix typos (spelling errors) in cpan/Archive*.

# New Ticket Created by  (Peter J. Acklam) 
# Please include the string:  [perl #81776]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81776 >


---
 cpan/Archive-Extract/lib/Archive/Extract.pm |   10 +++++-----
 cpan/Archive-Extract/t/01_Archive-Extract.t |    6 +++---
 cpan/Archive-Tar/bin/ptar                   |    2 +-
 cpan/Archive-Tar/lib/Archive/Tar.pm         |   20 ++++++++++----------
 4 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/cpan/Archive-Extract/lib/Archive/Extract.pm b/cpan/Archive-Extract/lib/Archive/Extract.pm
index 0f42c85..365a05e 100644
--- a/cpan/Archive-Extract/lib/Archive/Extract.pm
+++ b/cpan/Archive-Extract/lib/Archive/Extract.pm
@@ -149,7 +149,7 @@ my $Mapping = {  # binary program           # pure perl module
     is_txz  => { bin => '_untar_bin',       pp => '_untar_at'   },
 };
 
-{   ### use subs so we re-generate array refs etc for the no-overide flags
+{   ### use subs so we re-generate array refs etc for the no-override flags
     ### if we don't, then we reuse the same arrayref, meaning objects store
     ### previous errors
     my $tmpl = {
@@ -159,7 +159,7 @@ my $Mapping = {  # binary program           # pure perl module
         _error_msg_long => sub { { no_override => 1, default => [] }        },
     };
 
-    ### build accesssors ###
+    ### build accessors ###
     for my $method( keys %$tmpl, 
                     qw[_extractor _gunzip_to files extract_path],
     ) {
@@ -716,7 +716,7 @@ sub have_old_bunzip2 {
                                                 \s+ [\d,.]+ \s tape \s blocks
                                             |x ? $1 : $_);
     
-                        ### only STDOUT, see above. Sometims, extra whitespace
+                        ### only STDOUT, see above. Sometimes, extra whitespace
                         ### is present, so make sure we only pick lines with
                         ### a length
                         } grep { length } map { split $/, $_ } @{$out[3]};     
@@ -1067,7 +1067,7 @@ sub _unzip_bin {
 
     ### first, get the files.. it must be 2 different commands with 'unzip' :(
     {   ### on VMS, capital letter options have to be quoted. This is
-        ### peported by John Malmberg on P5P Tue 21 Aug 2007 05:05:11 
+        ### reported by John Malmberg on P5P Tue 21 Aug 2007 05:05:11 
         ### Subject: [patch@31735]Archive Extract fix on VMS.
         my $opt = ON_VMS ? '"-Z"' : '-Z';
         my $cmd = [ $self->bin_unzip, $opt, '-1', $self->archive ];
@@ -1151,7 +1151,7 @@ sub _unzip_az {
     for my $member ($zip->members) {
         push @files, $member->{fileName};
 
-        ### file to extact to, to avoid the above problem
+        ### file to extract to, to avoid the above problem
         my $to = File::Spec->catfile( $extract_dir, $member->{fileName} );
         
         unless( $zip->extractMember($member, $to) == &Archive::Zip::AZ_OK ) {
diff --git a/cpan/Archive-Extract/t/01_Archive-Extract.t b/cpan/Archive-Extract/t/01_Archive-Extract.t
index 941ac83..a543eb5 100644
--- a/cpan/Archive-Extract/t/01_Archive-Extract.t
+++ b/cpan/Archive-Extract/t/01_Archive-Extract.t
@@ -445,7 +445,7 @@ for my $switch ( [0,1], [1,0] ) {
                             
                         ### win32 + bin utils is notorious, and none of them are
                         ### officially supported by strawberry. So if we 
-                        ### encounter an error while extracting whlie running 
+                        ### encounter an error while extracting while running 
                         ### with $PREFER_BIN on win32, just skip the tests.
                         ### See rt#46948: unable to install install on win32
                         ### for details on the pain
@@ -462,7 +462,7 @@ for my $switch ( [0,1], [1,0] ) {
                         unlike( $err, $re,
                                         "No errors capturing buffers" );
         
-                        ### might be 1 or 2, depending wether we extracted 
+                        ### might be 1 or 2, depending whether we extracted 
                         ### a dir too
                         my $files    = $ae->files || [];
                         my $file_cnt = grep { defined } $file, $dir;
@@ -525,7 +525,7 @@ for my $switch ( [0,1], [1,0] ) {
                             eval { rmtree( $ae->extract_path ) }; 
                             ok( !$@,        "   rmtree gave no error" );
                             ok( !(-d $ae->extract_path ),
-                                            "   Extract dir succesfully removed" );
+                                            "   Extract dir successfully removed" );
                         }
                     }
                 }
diff --git a/cpan/Archive-Tar/bin/ptar b/cpan/Archive-Tar/bin/ptar
index 653ce35..7b7cda7 100644
--- a/cpan/Archive-Tar/bin/ptar
+++ b/cpan/Archive-Tar/bin/ptar
@@ -99,7 +99,7 @@ sub usage {
     t   List the contents of ARCHIVE_FILE or STDIN (-)
     f   Name of the ARCHIVE_FILE to use. Default is './default.tar'
     z   Read/Write zlib compressed ARCHIVE_FILE (not always available)
-    v   Print filenames as they are added or extraced from ARCHIVE_FILE
+    v   Print filenames as they are added or extracted from ARCHIVE_FILE
     h   Prints this help message
     C   CPAN mode - drop 022 from permissions
 
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm
index 9df5ce0..5848771 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar.pm
@@ -351,7 +351,7 @@ sub _read_tar {
 
         ### according to the posix spec, the last 12 bytes of the header are
         ### null bytes, to pad it to a 512 byte block. That means if these
-        ### bytes are NOT null bytes, it's a corrrupt header. See:
+        ### bytes are NOT null bytes, it's a corrupt header. See:
         ### www.koders.com/c/fidCE473AD3D9F835D690259D60AD5654591D91D5BA.aspx
         ### line 111
         {   my $nulls = join '', "\0" x 12;
@@ -574,7 +574,7 @@ sub extract {
     # use the speed optimization for all extracted files
     local($self->{cwd}) = cwd() unless $self->{cwd};
 
-    ### you requested the extraction of only certian files
+    ### you requested the extraction of only certain files
     if( @args ) {
         for my $file ( @args ) {
 
@@ -755,7 +755,7 @@ sub _extract_file {
         my @cwd     = File::Spec->splitdir( $cwd_dir );
         push @cwd, $cwd_file if length $cwd_file;
 
-        ### We need to pass '' as the last elemant to catpath. Craig Berry
+        ### We need to pass '' as the last element to catpath. Craig Berry
         ### explains why (msgid <p0624083dc311ae541393@[172.16.52.1]>):
         ### The root problem is that splitpath on UNIX always returns the
         ### final path element as a file even if it is a directory, and of
@@ -1129,7 +1129,7 @@ GLOB reference).
 The second argument is used to indicate compression. You can either
 compress using C<gzip> or C<bzip2>. If you pass a digit, it's assumed
 to be the C<gzip> compression level (between 1 and 9), but the use of
-constants is prefered:
+constants is preferred:
 
   # write a gzip compressed file
   $tar->write( 'out.tgz', COMPRESS_GZIP );
@@ -1310,7 +1310,7 @@ sub _format_tar_entry {
     my $prefix  = $entry->prefix; $prefix = '' unless defined $prefix;
 
     ### remove the prefix from the file name
-    ### not sure if this is still neeeded --kane
+    ### not sure if this is still needed --kane
     ### no it's not -- Archive::Tar::File->_new_from_file will take care of
     ### this for us. Even worse, this would break if we tried to add a file
     ### like x/x.
@@ -1550,7 +1550,7 @@ To switch back to the default behaviour, use
 
 and C<Archive::Tar> will call C<Cwd::cwd()> internally again.
 
-If you're using C<Archive::Tar>'s C<exract()> method, C<setcwd()> will
+If you're using C<Archive::Tar>'s C<extract()> method, C<setcwd()> will
 be called for you.
 
 =cut
@@ -1573,7 +1573,7 @@ reference to an open file handle (e.g. a GLOB reference).
 The second argument is used to indicate compression. You can either
 compress using C<gzip> or C<bzip2>. If you pass a digit, it's assumed
 to be the C<gzip> compression level (between 1 and 9), but the use of
-constants is prefered:
+constants is preferred:
 
   # write a gzip compressed file
   Archive::Tar->create_archive( 'out.tgz', COMPRESS_GZIP, @filelist );
@@ -1992,7 +1992,7 @@ the extraction of this particular item didn't work.
 
 By default, C<Archive::Tar> is in a completely POSIX-compatible
 mode, which uses the POSIX-specification of C<tar> to store files.
-For paths greather than 100 characters, this is done using the
+For paths greater than 100 characters, this is done using the
 C<POSIX header prefix>. Non-POSIX-compatible clients may not support
 this part of the specification, and may only support the C<GNU Extended
 Header> functionality. To facilitate those clients, you can set the
@@ -2167,9 +2167,9 @@ to an uploaded file, which might be a compressed archive.
 
 C<http://www.gnu.org/software/tar/manual/tar.html>
 
-=item The PAX format specication
+=item The PAX format specification
 
-The specifcation which tar derives from; C< http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html>
+The specification which tar derives from; C< http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html>
 
 =item A comparison of GNU and POSIX tar standards; C<http://www.delorie.com/gnu/docs/tar/tar_114.html>
 
-- 
1.7.3.3

• [perl #81776] [PATCH] Fix typos (spelling errors) in cpan/Archive*. by perlbug-followup
• Re: [perl #81776] [PATCH] Fix typos (spelling errors) in cpan/Archive*. by Chris 'BinGOs' Williams