diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-01-25 18:30:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-01-25 18:30:02 +0000 |
| commit | eaefe50b644e6a62cfa6fbe1d17797da503e5170 (patch) | |
| tree | 69ff16d6c2558d58d1852deb69b9c40559ea7cb5 | |
| parent | d8dc6ca9f3613798adbf401f8b9394e51d671be2 (diff) | |
| download | drakx-backup-do-not-use-eaefe50b644e6a62cfa6fbe1d17797da503e5170.tar drakx-backup-do-not-use-eaefe50b644e6a62cfa6fbe1d17797da503e5170.tar.gz drakx-backup-do-not-use-eaefe50b644e6a62cfa6fbe1d17797da503e5170.tar.bz2 drakx-backup-do-not-use-eaefe50b644e6a62cfa6fbe1d17797da503e5170.tar.xz drakx-backup-do-not-use-eaefe50b644e6a62cfa6fbe1d17797da503e5170.zip | |
(extract_modules) silent failure to extract gz modules (for rescue)
| -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 { |