From f7bee8d26d4395332b6fdbf3722ae55c31e0238f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 4 Jan 2000 14:17:15 +0000 Subject: no_comment --- perl-install/install_any.pm | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index d6a696c37..e9905906a 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -104,7 +104,7 @@ sub getAvailableSpace { if ($::testing) { log::l("taking 200MB for testing"); - return 200 << 20; + return 2000 << 20; } die "missing root partition"; } @@ -503,9 +503,9 @@ sub install_urpmi { ftp => $ENV{URLPREFIX}, http => $ENV{URLPREFIX}, cdrom => "removable_cdrom_1://mnt/cdrom" }}{$method}; - local *FILES; open FILES, "hdlist2files $f|"; + local *FILES; open FILES, "hdlist2names $f|"; chop, print LIST "$dir/Mandrake/RPMS/$_\n" foreach ; - close FILES or log::l("hdlist2files failed"), return; + close FILES or log::l("hdlist2names failed"), return; run_program::run("gzip", "-9", $f); @@ -577,6 +577,17 @@ sub kderc_largedisplay($) { kpaneliconstyle => "kpanelIconStyle=Normal\n", #- to change to Large when icons looks better kdeiconstyle => "KDEIconStyle=Large\n", }); + foreach ("/etc/skel", "/root", list_home()) { + my $found; + substInFile { + $found ||= /KFM Misc Defaults/; + $_ .= +"[KFM Misc Defaults] +GridWidth=78 +GridHeight=75 +" if eof && !$found; + } "$prefix$_/.kde/share/config/kfmrc" + } } sub kdelang_postinstall($) { -- cgit v1.2.1