From 18d7729d575ad2e0b1e8a656a2b395310f38c636 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 1 Jun 2005 07:57:28 +0000
Subject: (ask_fromW) do not use next in callback

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

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 7435384cc..a911f1f32 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -598,7 +598,7 @@ sub ask_fromW {
 
 		$set = sub {
 		    my $s = may_apply($e->{format}, $_[0]);
-              next if !($s ne $w->get_text && $_[0] ne $w->get_text);
+              return if !($s ne $w->get_text && $_[0] ne $w->get_text);
               if ($model) {
                   $model->set($w->get_active_iter, 0 => may_apply($e->{format}, $s));
                   #$w->set_active($model->{indexes}{$s});
-- 
cgit v1.2.1