From 8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 16 Sep 2001 18:35:07 +0000 Subject: use new mkdir_p, rm_rf and cp_af from MDK::Common --- perl-install/any.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 0d27c8eaa..3fcc19916 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -7,7 +7,6 @@ use strict; #- misc imports #-###################################################################################### use common; -use commands; use detect_devices; use partition_table qw(:types); use fsedit; @@ -39,7 +38,7 @@ sub facesnames { sub addKdmIcon { my ($prefix, $user, $icon) = @_; my $dest = "$prefix/usr/share/faces/$user.png"; - eval { commands::cp("-f", facesdir($prefix) . $icon . ".png", $dest) } if $icon; + eval { cp_af(facesdir($prefix) . $icon . ".png", $dest) } if $icon; } sub allocUsers { @@ -509,7 +508,7 @@ END } #- install kppprc file according to used configuration. - commands::mkdir_("-p", "$prefix/usr/share/config"); + mkdir_p("$prefix/usr/share/config"); local *KPPPRC; open KPPPRC, ">$prefix/usr/share/config/kppprc" or die "Can't open $prefix/usr/share/config/kppprc: $!"; #chmod 0600, "$prefix/usr/share/config/kppprc"; -- cgit v1.2.1