From a19ba05ac042d3be97c82176a40fefe382e5192e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jan 2012 18:30:02 +0000
Subject: (extract_modules) silent failure to extract gz modules (for rescue)

---
 perl-install/NEWS       | 1 +
 perl-install/modules.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index f98fcf27c..2643f2b5e 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- silent failure to extract gz modules (for rescue)
 - diskdrake:
   o better default name for new VG (vg-mga, vg-mga1, ...
     instead of vg-0, vg-1, ...)
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 6b3e90616..c431268c6 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -309,7 +309,7 @@ sub extract_modules {
 	my $path = list_modules::modname2path($modname);
 	my $f = $modname . module_extension();
 	if (-e $path) {
-	    system("gzip -dc $path > $dir/$f") == 0
+	    system("gzip -dc $path > $dir/$f 2>/dev/null") == 0
 	      or system("xz -d < $path > $dir/$f") == 0
 	         or unlink "$dir/$f";
 	} else {
-- 
cgit v1.2.1