diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/modules.pm | 2 |
2 files changed, 2 insertions, 1 deletions
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 { |