From fb5b2037cca9b1f92edbf72faf2d13395ad37cb4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 12 Oct 1999 14:31:42 +0000
Subject: *** empty log message ***

---
 perl-install/install2.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 04a4c7dff..9547d08c3 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -510,6 +510,7 @@ sub main {
 	    eval { $o->errorInStep($_) } unless /^already displayed/;
 	    $@ and next;
 	    $o->{step} = $o->{steps}{$o->{step}}{onError};
+	    next MAIN unless $o->{steps}{$o->{step}}{reachable}; #- sanity check: avoid a step not reachable on error.
 	    redo MAIN;
 	}
 	$o->{steps}{$o->{step}}{done} = 1;
-- 
cgit v1.2.1