[2727] (extract_modules) enable to find, decompress XZ modules

[root-odJJhXpcy38dnm+]

Revision: 2727
Author: tv
Date: 2012-01-20 20:12:44 +0100 (Fri, 20 Jan 2012)
Log Message:
-----------
(extract_modules) enable to find, decompress XZ modules

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

Modified: drakx/trunk/perl-install/NEWS
===================================================================
--- drakx/trunk/perl-install/NEWS 2012-01-20 19:12:41 UTC (rev 2726)
+++ drakx/trunk/perl-install/NEWS 2012-01-20 19:12:44 UTC (rev 2727)
@@ -1,3 +1,4 @@
+- add support for XZ modules
- diskdrake:
o enable to set LV names when not in expert mode
o suggest better LV names based on the mount point rather than numbers

Modified: drakx/trunk/perl-install/install/NEWS
===================================================================
--- drakx/trunk/perl-install/install/NEWS 2012-01-20 19:12:41 UTC (rev 2726)
+++ drakx/trunk/perl-install/install/NEWS 2012-01-20 19:12:44 UTC (rev 2727)
@@ -1,3 +1,4 @@
+- add support for XZ modules
- include gtk20 translations (caps lock & the like)
- diskdrake:
o enable to set LV names when not in expert mode

Modified: drakx/trunk/perl-install/modules.pm
===================================================================
--- drakx/trunk/perl-install/modules.pm 2012-01-20 19:12:41 UTC (rev 2726)
+++ drakx/trunk/perl-install/modules.pm 2012-01-20 19:12:44 UTC (rev 2727)
@@ -319,7 +319,8 @@
my $f = $modname . module_extension();
if (-e $path) {
system("gzip -dc $path > $dir/$f") == 0
- or unlink "$dir/$f";
+ or system("xz -d < $path > $dir/$f") == 0
+ or unlink "$dir/$f";
} else {
log::l("warning: unable to get module filename for $modname (path: $path)");
}