Update Archive-Extract to CPAN version 0.54

  [DELTA]

  Changes for 0.54    Mon Aug 22 11:52:18 2011
  ============================================
  * Resolve issues on MSWin32 when 'unzip' is
    found in PATH

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 0343bd0..a2f6f2f 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -198,7 +198,7 @@ use File::Glob qw(:case);
     'Archive::Extract' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'BINGOS/Archive-Extract-0.52.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/Archive-Extract-0.54.tar.gz',
        'FILES'         => q[cpan/Archive-Extract],
        'UPSTREAM'      => 'cpan',
        'BUGS'          => 'bug-archive-extract@rt.cpan.org',

diff --git a/cpan/Archive-Extract/lib/Archive/Extract.pm b/cpan/Archive-Extract/lib/Archive/Extract.pm
index d2adab8..d183dc6 100644 (file)
--- a/cpan/Archive-Extract/lib/Archive/Extract.pm
+++ b/cpan/Archive-Extract/lib/Archive/Extract.pm
@@ -45,7 +45,7 @@ use vars qw[$VERSION $PREFER_BIN $PROGRAMS $WARN $DEBUG
             $_ALLOW_BIN $_ALLOW_PURE_PERL $_ALLOW_TAR_ITER
          ];
 
-$VERSION            = '0.52';
+$VERSION            = '0.54';
 $PREFER_BIN         = 0;
 $WARN               = 1;
 $DEBUG              = 0;
@@ -1087,6 +1087,7 @@ sub _unzip_bin {
             $self->_error( $self->_no_buffer_files( $self->archive ) );
 
         } else {
+            local $/ = ON_WIN32 ? "\r\n" : "\n";
             $self->files( [split $/, $buffer] );
         }
     }

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 7939c25..fbc2535 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -106,7 +106,9 @@ XXX
 
 =item *
 
-L<XXX> has been upgraded from version 0.69 to version 0.70.
+L<Archive::Extract> has been upgraded from version 0.52 to version 0.54
+
+Resolved an issue where C<unzip> executable was present in C<PATH> on MSWin32
 
 =back