From: Steve Hay <SteveHay@planit.com>
Date: Mon, 15 Dec 2008 15:39:12 +0000 (+0000)
Subject: Fix test failures caused by Archive-Extract upgrade
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29c6b3372eec21075f7025af5e62bc2f94a45970;p=p5sagit%2Fp5-mst-13.2.git

Fix test failures caused by Archive-Extract upgrade

p4raw-id: //depot/perl@35106
---

diff --git a/lib/Archive/Extract.pm b/lib/Archive/Extract.pm
index c7486bd..e1f8a11 100644
--- a/lib/Archive/Extract.pm
+++ b/lib/Archive/Extract.pm
@@ -38,7 +38,7 @@ use vars qw[$VERSION $PREFER_BIN $PROGRAMS $WARN $DEBUG
             $_ALLOW_BIN $_ALLOW_PURE_PERL
          ];
 
-$VERSION            = '0.28';
+$VERSION            = '0.28_01';
 $PREFER_BIN         = 0;
 $WARN               = 1;
 $DEBUG              = 0;
diff --git a/lib/Archive/Extract/t/01_Archive-Extract.t b/lib/Archive/Extract/t/01_Archive-Extract.t
index 5aa941c..3d41460 100644
--- a/lib/Archive/Extract/t/01_Archive-Extract.t
+++ b/lib/Archive/Extract/t/01_Archive-Extract.t
@@ -350,7 +350,9 @@ for my $switch ( [0,1], [1,0] ) {
                         : ($OutDir);
 
         skip "No binaries or modules to extract ".$archive, 
-            (10 * scalar @outs) if $mod_fail && $pgm_fail;
+            (10 * scalar @outs) if
+            	($mod_fail && ($pgm_fail || !$Archive::Extract::_ALLOW_BIN)) ||
+		($pgm_fail && ($mod_fail || !$Archive::Extract::_ALLOW_PURE_PERL));
 
         ### we dont warnings spewed about missing modules, that might
         ### be a problem...