diff options
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 11 |
1 files changed, 3 insertions, 8 deletions
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"; } } |