This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Archive-Extract to CPAN version 0.44
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 29 Sep 2010 15:00:27 +0000 (16:00 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 29 Sep 2010 15:00:27 +0000 (16:00 +0100)
  [DELTA]

  Changes for 0.44    Wed Sep 29 15:51:26 2010
  ============================================
  * Apply a patch from brian d foy that adds a
    debug() method for $DEBUG output.

Porting/Maintainers.pl
cpan/Archive-Extract/lib/Archive/Extract.pm
pod/perldelta.pod

index 3fb5625..c5cbe28 100755 (executable)
@@ -188,7 +188,7 @@ use File::Glob qw(:case);
     'Archive::Extract' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'BINGOS/Archive-Extract-0.42.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/Archive-Extract-0.44.tar.gz',
        'FILES'         => q[cpan/Archive-Extract],
        'UPSTREAM'      => 'cpan',
        'BUGS'          => 'bug-archive-extract@rt.cpan.org',
index 538d8c3..5f9c5d0 100644 (file)
@@ -43,7 +43,7 @@ use vars qw[$VERSION $PREFER_BIN $PROGRAMS $WARN $DEBUG
             $_ALLOW_BIN $_ALLOW_PURE_PERL $_ALLOW_TAR_ITER
          ];
 
-$VERSION            = '0.42';
+$VERSION            = '0.44';
 $PREFER_BIN         = 0;
 $WARN               = 1;
 $DEBUG              = 0;
@@ -402,22 +402,22 @@ sub extract {
 
         my($na, $fail);
         for my $method (@methods) {
-            print "# Extracting with ->$method\n" if $DEBUG;
+            $self->debug( "# Extracting with ->$method\n" );
         
             my $rv = $self->$method;
             
             ### a positive extraction
             if( $rv and $rv ne METHOD_NA ) {
-                print "# Extraction succeeded\n" if $DEBUG;
+                $self->debug( "# Extraction succeeded\n" );
                 $self->_extractor($method);
                 last;
             
             ### method is not available
             } elsif ( $rv and $rv eq METHOD_NA ) {               
-                print "# Extraction method not available\n" if $DEBUG;
+                $self->debug( "# Extraction method not available\n" );
                 $na++;                
             } else {
-                print "# Extraction method failed\n" if $DEBUG;
+                $self->debug( "# Extraction method failed\n" );
                 $fail++;
             }                
         }
@@ -1515,6 +1515,21 @@ sub error {
     return join $/, @$aref;
 }
 
+=head2 debug( MESSAGE )
+
+This method outputs MESSAGE to the default filehandle if C<$DEBUG> is
+true. It's a small method, but it's here if you'd like to subclass it
+so you can so something else with any debugging output.
+
+=cut
+
+### this is really a stub for subclassing
+sub debug {
+    return unless $DEBUG;
+
+    print $_[1];
+}
+
 sub _no_buffer_files {
     my $self = shift;
     my $file = shift or return;
index 4487718..25667a1 100644 (file)
@@ -176,6 +176,10 @@ XXX
 
 =item *
 
+C<Archive::Extract> has been upgraded from version 0.42 to 0.44
+
+=item *
+
 C<Carp> has been upgraded from version 1.18 to 1.19.
 
 It no longer autovivifies the C<*CORE::GLOBAL::caller> glob, something it