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 /perl-install/modules.pm | |
| 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)
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |