From 85e21d9abb2daf68be31c33dcdbc8874c3cc8fdc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 4 Jan 2000 22:13:57 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e9905906a..7ccb2e73e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -578,14 +578,9 @@ sub kderc_largedisplay($) {
 				      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;
+	    s/^(GridWidth)=85/$1=100/;
+	    s/^(GridWidth)=70/$1=75/;
 	} "$prefix$_/.kde/share/config/kfmrc" 
     }
 }
@@ -643,7 +638,7 @@ sub kdeicons_postinstall($) {
     foreach my $dir (map { "$prefix$_/Desktop" } qw(/etc/skel /root)) {
 	-d $dir or next;
 	foreach (grep { /\.kdelnk$/ } all($dir)) {
-	    cat_("$dir/$_") =~ /^Name\[$lang\]=(.*)/m
+	    cat_("$dir/$_") =~ /^Name\[$lang\]=(.{2,14})$/m
 	      and rename "$dir/$_", "$dir/$1.kdelnk";
 	}
     }
-- 
cgit v1.2.1