From 1aa830a04246a89a305be3ca3b8b2615c1d88065 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 6 Jan 2000 11:23:39 +0000 Subject: *** empty log message *** --- perl-install/install_any.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 6403ebf7a..ccc8343f1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -663,22 +663,24 @@ sub kdeicons_postinstall($) { sub move_desktop_file($) { my ($prefix) = @_; - my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk); + my @toMove = qw(doc.kdelnk news.kdelnk updates.kdelnk home.kdelnk printer.kdelnk floppy.kdelnk cdrom.kdelnk FLOPPY.kdelnk CDROM.kdelnk); foreach (list_skels()) { my $dir = "$prefix$_"; if (-d "$dir/Desktop") { - my @toSubst = glob_("$dir/Desktop/.*\.rpmorig"); + my @toSubst = glob_("$dir/Desktop/*rpmorig"); push @toSubst, "$dir/Desktop/$_" foreach @toMove; #- remove any existing save in Trash of each user and #- move appropriate file there after an upgrade. foreach (@toSubst) { - my $basename = basename($_); + if (-e $_) { + my $basename = basename($_); - unlink "$dir/Desktop/Trash/$basename"; - rename $_, "$dir/Desktop/Trash/$basename"; + unlink "$dir/Desktop/Trash/$basename"; + rename $_, "$dir/Desktop/Trash/$basename"; + } } } } -- cgit v1.2.1