From 4b0c7955bbb4c2556b604c80d4bbd7314233a7ed Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Sep 1999 16:44:40 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 47d4808a4..2386619b8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -131,12 +131,12 @@ sub addToBeDone(&$) {
 sub install_cpio {
     my ($dir, $name) = @_;
 
-    return if -e "$dir/$name";
+    return "$dir/$name" if -e "$dir/$name";
 
     my $cpio = "$dir.cpio.bz2";
     -e $cpio or return;
 
-    commands::rm "-r", $dir;
+    eval { commands::rm "-r", $dir };
     mkdir $dir, 0755;
     run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -i $name");
     "$dir/$name";
-- 
cgit v1.2.1