summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-05 20:55:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-05 20:55:20 +0000
commitfd6b89e3d9cb165829a25cd196b5340104a4e440 (patch)
treec14cf6f6d8be04fa8cdfe65fc8e68411b399e757 /perl-install/install_any.pm
parent49a8229d69ae7b82dff1417857285f5f0a73f43f (diff)
downloaddrakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.gz
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.bz2
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.tar.xz
drakx-backup-do-not-use-fd6b89e3d9cb165829a25cd196b5340104a4e440.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 3 insertions, 1 deletions
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;