From d5e061896a35a49a50124949c2882ac9cbe94589 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Aug 1999 20:15:36 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 94456e9c0..47e978229 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -12,12 +12,12 @@ use my_gtk qw(:helpers :wrappers);
 
 1;
 
-# redefine ask_warn
-sub ask_warn {
-    my $o = shift;
-    local $my_gtk::grab = 1;
-    $o->SUPER::ask_warn(@_);
-}
+## redefine ask_warn
+#sub ask_warn {
+#    my $o = shift;
+#    local $my_gtk::grab = 1;
+#    $o->SUPER::ask_warn(@_);
+#}
 
 sub ask_from_entryW {
     my ($o, $title, $messages, $def) = @_;
-- 
cgit v1.2.1