From 953db332ce73dbfd40669d66bf23552dbd9c7838 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Jun 2004 03:07:58 +0000
Subject: better code for installing config files listed in keyfiles (and use
 cp_f)

---
 move/move.pm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'move/move.pm')

diff --git a/move/move.pm b/move/move.pm
index 625a01ad8..accee6c1f 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -352,13 +352,10 @@ sub key_installfiles {
             log::l("key_installfiles: installing config files in $sysconf");
             mkdir $sysconf;
             foreach (chomp_(cat_('/image/move/keyfiles'))) {
-                my $target_dir = $sysconf . dirname($_);
-                mkdir_p($target_dir);
-                if (/\*$/) {
-                    run_program::run('cp', glob_($_), $target_dir);
-                    symlinkf("$sysconf$_", $_) foreach glob($_);
-                } else {
-                    run_program::run('cp', $_, "$sysconf$_");
+                mkdir_p($sysconf . dirname($_));
+                my @l = /\*$/ ? glob_($_) : $_;
+		foreach (@l) {
+		    eval { cp_f($_, "$sysconf$_") };
                     symlinkf("$sysconf$_", $_);
                 }
             }
-- 
cgit v1.2.1