From a9de3d40e931ae5727f7011ee4b6cf86bac7b8af Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Sep 1999 11:40:40 +0000
Subject: no_comment

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

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 12ff75ac4..1afb5b420 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -180,6 +180,7 @@ sub ask_from_entries_refW {
 	    foreach (@updates_inv) { &{$_};}
 	    $ignore = 0;
 	    if ($error) {
+		$focus ||= 0;
 		comb_entry($entries[$focus], $val->[$focus])->grab_focus();
 	    } else {
 		return 1;
-- 
cgit v1.2.1