From 289db2a20031f221bab63bbbfe40be88da1620ff Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 8 Nov 1999 13:47:48 +0000
Subject: *** empty log message ***

---
 perl-install/commands.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index c6695603c..120aa99b4 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -514,7 +514,7 @@ sub  install_cpio($$) {
     run_program::run("cd $dir ; bzip2 -cd $cpio | cpio -id $name $name/*");
 
     #- not found, cache result
-    $cached_failed_install_cpio{"$dir $name"} = ! -e "$dir/$name";
+    return if $cached_failed_install_cpio{"$dir $name"} = ! -e "$dir/$name";
     "$dir/$name";
 }
 
-- 
cgit v1.2.1