From 8fef7733bb31cf0faa9d61c356e0ed5e6a2f8703 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 4 Jan 2000 12:46:35 +0000 Subject: *** empty log message *** --- perl-install/install_any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 41007c735..d6a696c37 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -621,8 +621,8 @@ sub kdeicons_postinstall($) { template2userfile($prefix, "/usr/share/floppy.kdelnk.in", "Desktop/Floppy". ($1 && " $1") .".kdelnk", 1, %toreplace); } elsif (m|^/dev/(\S+)\s+(/mnt/DOS_\S*)\s+|) { - my %toreplace = ( device => $1, id => $2, mntpoint => $2 ); - template2userfile($prefix, "/usr/share/Dos_.kdelnk.in", "Desktop/Dos_$2.kdelnk", 1, %toreplace); + my %toreplace = ( device => $1, id => $1, mntpoint => $2 ); + template2userfile($prefix, "/usr/share/Dos_.kdelnk.in", "Desktop/Dos_$1.kdelnk", 1, %toreplace); } elsif (m|^/dev/(\S+)\s+(\S*)\s+vfat\s+|) { my %toreplace = ( device => $1, id => $1, mntpoint => $2 ); template2userfile($prefix, "/usr/share/Dos_.kdelnk.in", "Desktop/Dos_$1.kdelnk", 1, %toreplace); -- cgit v1.2.1