summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-31 17:49:30 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-31 17:49:30 +0000
commit416760cf6e1a2bcd8080388e290fa12e3e74c377 (patch)
tree2b841530dcd292a2559218349f0881c60d410999 /perl-install/my_gtk.pm
parent91419eac51774d733b905ac2d54b3bde60a208df (diff)
downloaddrakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.gz
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.bz2
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.tar.xz
drakx-backup-do-not-use-416760cf6e1a2bcd8080388e290fa12e3e74c377.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index e78cd2fda..dcf0458ee 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -292,7 +292,7 @@ sub _ask_from_list($$$$) {
$def = $i if $l->[$i] eq $def;
my $w = new Gtk::ListItem($l->[$i]);
my $id = $w->signal_connect(key_press_event => sub {
- my ($w, $e)= @_;
+ my ($w, $e) = @_;
my $c = chr $e->{keyval};
Gtk->timeout_remove($timeout) if $timeout; $timeout = '';