summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-21 18:50:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-21 18:50:05 +0000
commit025b3b7c1c04e281b32267f9c2bcbcf4e9801354 (patch)
tree4ac1449b9210babc3c572003583a01b0aed2f309 /perl-install/interactive/gtk.pm
parentbf94a6ccf2347b0a12b00a7472aa3522fd0ba8fe (diff)
downloaddrakx-025b3b7c1c04e281b32267f9c2bcbcf4e9801354.tar
drakx-025b3b7c1c04e281b32267f9c2bcbcf4e9801354.tar.gz
drakx-025b3b7c1c04e281b32267f9c2bcbcf4e9801354.tar.bz2
drakx-025b3b7c1c04e281b32267f9c2bcbcf4e9801354.tar.xz
drakx-025b3b7c1c04e281b32267f9c2bcbcf4e9801354.zip
remove unused variable
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index c52560b2c..65d17964a 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -364,7 +364,7 @@ sub ask_fromW {
my ($e, $ind) = @_;
my $may_go_to_next = sub {
- my ($w, $event, $kind) = @_;
+ my ($w, $event) = @_;
if (!$event || ($event->keyval & 0x7f) == 0xd) {
$w->signal_stop_emission_by_name('key_press_event') if $event;
if ($ind == $#widgets) {