diff options
-rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |