[2803] (extract_modules) silent failure to extract gz modules (for rescue)

[root-odJJhXpcy38dnm+]

Revision: 2803
Author: tv
Date: 2012-01-25 19:30:02 +0100 (Wed, 25 Jan 2012)
Log Message:
-----------
(extract_modules) silent failure to extract gz modules (for rescue)

Modified Paths:
--------------
drakx/trunk/perl-install/NEWS
drakx/trunk/perl-install/modules.pm

Modified: drakx/trunk/perl-install/NEWS
===================================================================
--- drakx/trunk/perl-install/NEWS 2012-01-25 18:29:59 UTC (rev 2802)
+++ drakx/trunk/perl-install/NEWS 2012-01-25 18:30:02 UTC (rev 2803)
@@ -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, ...)

Modified: drakx/trunk/perl-install/modules.pm
===================================================================
--- drakx/trunk/perl-install/modules.pm 2012-01-25 18:29:59 UTC (rev 2802)
+++ drakx/trunk/perl-install/modules.pm 2012-01-25 18:30:02 UTC (rev 2803)
@@ -309,7 +309,7 @@
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 {