From fd6b89e3d9cb165829a25cd196b5340104a4e440 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 5 Jan 2000 20:55:20 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 36d6b2eca..12e080d57 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -131,6 +131,7 @@ sub setPackages($) {
 	push @{$o->{default_packages}}, "kernel-pcmcia-cs" if $o->{pcmcia};
 	push @{$o->{default_packages}}, "apmd" if $o->{pcmcia};
 	push @{$o->{default_packages}}, "raidtools" if $o->{raid} && !is_empty_array_ref($o->{raid}{raid});
+	push @{$o->{default_packages}}, "cdrecord" if detect_devices::getIDEBurners();
 
 	pkgs::getDeps($o->{packages});
 
@@ -543,6 +544,7 @@ sub template2userfile($$$$%) {
 	if (-d dirname($outputfile) && ($force || ! -e $outputfile)) {
 	    log::l("generating $outputfile from template $inputfile");
 	    template2file($inputfile, $outputfile, %toreplace);
+	    m|/home/(.*)| and commands::chown_($1, $outputfile);
 	}
     }
 }
@@ -643,7 +645,7 @@ sub kdeicons_postinstall($) {
     }
 
     my @l = map { "$prefix$_/Desktop/Doc.kdelnk" } list_skels();
-    if (my ($lang) = all("$prefix/usr/doc/mandrake")) {
+    if (my ($lang) = eval { all("$prefix/usr/doc/mandrake") }) {
 	substInFile { s|^(URL=.*?)/?$|$1/$lang| } @l;
     } else {
 	unlink @l;
-- 
cgit v1.2.1