From 0976d0441bee25d06260dad7b520173063e194ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 18 Sep 1999 21:41:07 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index f3228358f..5f9159df5 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -38,7 +38,8 @@ sub main($;$) {
     my ($o, $f) = @_;
     $o->show;
 
-    do { 
+    do {
+	local $::setstep = 1;
 	Gtk->main 
     } while ($o->{retval} && $f && !&$f());
     $o->destroy;
@@ -377,8 +378,9 @@ sub _ask_from_list($$$$) {
 	    $curr++ if $starting_word eq '' || $starting_word eq $c;
 	    $starting_word .= $c unless $starting_word eq $c;
 	
+	    my $word = quotemeta $starting_word;
 	    my $j; for ($j = 0; $j < @$l; $j++) {
-		 $l->[($j + $curr) % @$l] =~ /^$starting_word/i and last;
+		 $l->[($j + $curr) % @$l] =~ /^$word/i and last;
 	    }
 	    $j == @$l ?
 	      $starting_word = '' :
-- 
cgit v1.2.1