[svn:Module-Build] r13176 - in Module-Build/trunk: . t

[dagolden]

Author: dagolden
Date: Fri Aug  7 20:34:40 2009
New Revision: 13176

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/t/par.t

Log:
Prevent par.t from dying on error in .zip extraction



Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Fri Aug  7 20:34:40 2009
@@ -5,6 +5,7 @@
  Bug fixes:
  - Fixed failing xs.t if /tmp is mounted noexec (RT#47331) [David Golden]
  - Fixed failing debug.t on VMS (RT#48362) [Craig Berry]
+ - Prevent par.t from dying on error in .zip extraction [David Golden]
 
 0.34_02 - Sun Jul 26 22:50:40 EDT 2009
 

Modified: Module-Build/trunk/t/par.t
==============================================================================
--- Module-Build/trunk/t/par.t  (original)
+++ Module-Build/trunk/t/par.t  Fri Aug  7 20:34:40 2009
@@ -83,8 +83,8 @@
   local %SIG;
   $SIG{__WARN__} = sub { print STDERR $_[0] unless $_[0] =~ /\bstat\b/ };
   skip "broken Archive::Zip", 1 
-    unless $zip->read($filename) == Archive::Zip::AZ_OK()
-    && $zip->extractTree('', "$tmp2/") == Archive::Zip::AZ_OK()
+    unless eval { $zip->read($filename) == Archive::Zip::AZ_OK() }
+    && eval { $zip->extractTree('', "$tmp2/") == Archive::Zip::AZ_OK() }
     && -r File::Spec->catfile( $tmp2, 'blib', 'META.yml' );
 
   my $meta;