From e80d8aea22eb4bf86af2679f4f984da7277eee53 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Jun 2005 06:12:07 +0000 Subject: make perl_checker happy --- perl-install/standalone/drakbug | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/drakbug') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 7cde789fa..6b8ae9141 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -30,7 +30,7 @@ use Config; my ($bugzilla, $wizard_name); my $prog; my $incident = 0; -my ($bugdesc, $table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $kernel); +my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode); foreach (@ARGV) { next unless defined $_; @@ -83,7 +83,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 }, gtkpack_(Gtk2::HBox->new(0,5), 1, $com_app = gtkset_editable(Gtk2::Entry->new, 1), 0, $button_pkg = Gtk2::Button->new(N("Find Package")), - )], + ) ], [ Gtk2::Label->new(N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ] ); @@ -129,7 +129,7 @@ gtkadd($window->{window}, if (defined $prog) { update_app($prog); $comb_app->set_text($prog); -}; +} $comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) }); $button_pkg->signal_connect('clicked', sub { -- cgit v1.2.1