From 1d27dbf5e28c61be9eeb078c44f2481fb25e7195 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Feb 2001 01:09:07 +0000
Subject: major move. now ask_from_list returns false when canceled (it doesn't
 die 'ask_from_list canceled' anymore)

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 69140aad9..8cc04ac79 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -28,6 +28,10 @@ sub exit {
     c::_exit($_[0]) #- workaround 
 }
 
+sub ask_warn {
+    local $my_gtk::pop_it = 1;
+    &interactive::ask_warn;
+}
 sub create_clist {
     my ($e, $may_go_to_next, $changed) = @_;
     my (@widgets, $curr);
-- 
cgit v1.2.1