diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-18 21:41:07 +0000 |
| commit | 0976d0441bee25d06260dad7b520173063e194ec (patch) | |
| tree | 133061d9d342351265be9744522f91d5b5648e70 /perl-install/my_gtk.pm | |
| parent | a3f0d48ce9bec90c2304166b1185ddb457a9775a (diff) | |
| download | drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.gz drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.bz2 drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.tar.xz drakx-backup-do-not-use-0976d0441bee25d06260dad7b520173063e194ec.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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 = '' : |