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/modules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/modules.pm')

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