From ac35290eadfa0a77b9ac38a82856a9808a6cf223 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 31 Mar 2009 15:27:42 +0000
Subject: (_install_raw) tell urpmi to stop transactions when clicking on
 "cancel" (needs urpmi >= 6.25)

---
 perl-install/install/pkgs.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index d499e9f5e..188e81f05 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -769,6 +769,9 @@ sub _install_raw {
             my ($medium) = @_;
             $::o->ask_change_cd($medium);
         },
+        is_canceled => sub {
+            return $install::pkgs::cancel_install;
+        },
         trans_error_summary => sub {
             my ($nok, $errors) = @_;
             log::l($nok . " installation transactions failed");
-- 
cgit v1.2.1