From a640865dc675dc109036d62858100880839d86fa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Oct 2001 22:23:33 +0000
Subject: fix typo (on clicked_may_quit)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index e4d42daa7..fe22a66b5 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -407,7 +407,7 @@ sub ask_fromW {
 		$get_all->();
 		$mainw->{rwindow}->hide;
 		if (my $v = $e->{clicked_may_quit}()) {
-		    $o->{retval} = $v;
+		    $mainw->{retval} = $v;
 		    Gtk->main_quit;
 		}
 		$mainw->{rwindow}->show;
-- 
cgit v1.2.1