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

[p5pRT]

Migrated from rt.perl.org#81776 (status was 'resolved')

Searchable as RT81776$

[p5pRT]

From @pjacklam

---

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(-)

Inline Patch

```diff 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 ): ### 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 or C. If you pass a digit, it's assumed to be the C 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 will call C internally again. -If you're using C's C method, C will +If you're using C's C method, C 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 or C. If you pass a digit, it's assumed to be the C 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 is in a completely POSIX-compatible mode, which uses the POSIX-specification of C 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. Non-POSIX-compatible clients may not support this part of the specification, and may only support the C functionality. To facilitate those clients, you can set the @@ -2167,9 +2167,9 @@ to an uploaded file, which might be a compressed archive. C -=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 -- 1.7.3.3 ```

[p5pRT]

From @bingos

On Thu\, Jan 06\, 2011 at 11​:06​:01PM -0800\, Peter J. Acklam via RT wrote​:

# 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 >

Thanks applied as eadbb00ba52ffc893df754bb2e0166b43b067c4d

-- Chris Williams aka BinGOs PGP ID 0x4658671F http​://www.gumbynet.org.uk

[p5pRT]

The RT System itself - Status changed from 'new' to 'open'

[p5pRT]

@iabyn - Status changed from 'open' to 'resolved'