From b60694493568469869d1d8ef4279cdcf4cf5f4e1 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 19 Feb 2003 17:02:39 +0000
Subject: fixed if update fail to allow retry.

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

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5fbbe1ebb..30860db13 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -764,7 +764,7 @@ Do you want to install the updates ?")),
 						  \@mirrors,
 						  $u->{mirror});
 	};
-	return if $@;
+	return if $@ || !$u->{mirror};
 
 	eval {
 	    if ($u->{mirror}) {
@@ -772,7 +772,7 @@ Do you want to install the updates ?")),
 		$update_medium = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
 	    }
 	};
-    } while $@;
+    } while $@ || !$update_medium;
 
     if ($update_medium) {
 	if ($o->choosePackagesTree($o->{packages}, $update_medium)) {
-- 
cgit v1.2.1