1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/share/po/cs.po b/perl-install/share/po/cs.po
index 21e3a2c15..31ba47b07 100644
--- a/perl-install/share/po/cs.po
+++ b/perl-install/share/po/cs.po
@@ -3409,7 +3409,7 @@ msgstr "Výběr libovolného ovladače"
 msgid ""
 "If you really think that you know which driver is the right one for your "
 "card\n"
-"you can pick one in the above list.\n"
+"you can pick one from the above list.\n"
 "\n"
 "The current driver for your \"%s\" sound card is \"%s\" "
 msgstr ""
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 914a4a7be..320488197 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -123,7 +123,7 @@ sub rm {
 
     my $rm; $rm = sub {
 	foreach (@_) {
-	    if (-d $_) {
+	    if (!-l $_ && -d $_) {
 		$rec or die "$_ is a directory\n";
 		&$rm(glob_($_));
 		rmdir $_ or die "can't remove directory $_: $!\n";
@@ -504,8 +504,8 @@ sub dmesg { print cat_("/tmp/syslog"); }
 
 #my %cached_failed_install_cpio;
 #- double space between sub and install_cpio cuz install_cpio is not a shell command
-sub  install_cpio($$) {
-    my ($dir, $name) = @_; 
+sub  install_cpio($$;@) {
+    my ($dir, $name, @more) = @_; 
 
 #    return if $cached_failed_install_cpio{"$dir $name"};
     return "$dir/$name" if -e "$dir/$name";
@@ -516,7 +516,9 @@ sub  install_cpio($$) {
     eval { rm("-r", $dir) };
     mkdir $dir, 0755;
     require 'run_program.pm';
-    run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/*");
+    
+    my $more = join " ", map { $_ && "$_ $_/*" } @more;
+    run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/* $more");
 
     #- not found, cache result
 #    return if $cached_failed_install_cpio{"$dir $name"} = ! -e "$dir/$name";