summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-18 21:41:07 +0000
commit0976d0441bee25d06260dad7b520173063e194ec (patch)
tree133061d9d342351265be9744522f91d5b5648e70 /perl-install/my_gtk.pm
parenta3f0d48ce9bec90c2304166b1185ddb457a9775a (diff)
downloaddrakx-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.pm6
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 = '' :