diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
| commit | d6f5330ee63311a3e5c8ef52693ac7193ea83ede (patch) | |
| tree | 597f252be23c47345b40109c08f58b8fa849b524 /perl-install/standalone/drakbug | |
| parent | 9731f6a53e8701039a1fa0102427fbdd5eb60df0 (diff) | |
| download | drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.gz drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.bz2 drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.xz drakx-backup-do-not-use-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakbug')
| -rwxr-xr-x | perl-install/standalone/drakbug | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 3f34eaadc..a18606d74 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -65,7 +65,7 @@ push(@generic_tool,@all_drakxtools); my $kernel_release = chomp_(`uname -r`); my $table = create_packtable({ col_spacings => 5, row_spacings => 10 }, - [ new Gtk2::Label(N("Application:")), my $comb_app = gtkset_size_request(Gtk2::Combo->new(), 270, -1) ], + [ new Gtk2::Label(N("Application:")), my $comb_app = gtkset_size_request(Gtk2::Combo->new, 270, -1) ], [ new Gtk2::Label(N("Package: ")), my $package = new Gtk2::Entry("...") ], [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new($kernel_release), 0) ], [ Gtk2::Label->new(N("Release: ")), gtkset_editable(Gtk2::Entry->new(mandrake_release()), 0) ] @@ -86,7 +86,7 @@ gtkadd( 0, gtksignal_connect(Gtk2::Button->new(N("Report")), clicked => sub { my $options = "mdkbugreport=1"; $options .= "&incident=1" if $incident; - my $p = $package->get_text(); + my $p = $package->get_text; (my $r = parse_release()) =~ s/\s//; $options .= "&package=$p" if $p =~ /mdk/; $options .= "&kernel=$kernel_release"; @@ -105,8 +105,8 @@ if (defined $prog) { $comb_app->entry->set_text($prog); }; -$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text()) }); -$window->{window}->show_all(); +$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) }); +$window->{window}->show_all; $window->main; ugtk2->exit(0); |