From 477f9e81cb3aa78829210942e8185e8146c6cd5e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Nov 1999 12:50:22 +0000
Subject: no_comment

---
 perl-install/commands.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 0323f0f02..c6695603c 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -511,10 +511,11 @@ sub  install_cpio($$) {
     eval { rm("-r", $dir) };
     mkdir $dir, 0755;
     require 'run_program.pm';
-    run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/*") and return "$dir/$name";
+    run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/*");
 
     #- not found, cache result
-    $cached_failed_install_cpio{"$dir $name"} = 1;
+    $cached_failed_install_cpio{"$dir $name"} = ! -e "$dir/$name";
+    "$dir/$name";
 }
 
 
-- 
cgit v1.2.1