From ed76955e239d467e996ea3d20e8ae14c13db0253 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Mar 2000 17:30:36 +0000
Subject: no_comment

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 0f8a5bd52..3be8ece68 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -821,7 +821,7 @@ sub install($$$;$$) {
 	    c::rpmdbClose($db);
 	    die "installation of rpms failed:\n  ", join("\n  ", @probs);
 	}
-    } while ($nb > 0);
+    } while ($nb > 0 && !$pkgs::cancel_install);
 
     c::rpmdbClose($db);
     log::l("rpm database closed");
-- 
cgit v1.2.1