From 296fa74accf9b15a3065b3a052449d1359f531ee Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Tue, 7 Sep 2004 06:45:58 +0000 Subject: - shift twice to get the correct function name --- perl-install/standalone/drakbug | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 330df7aa9..8641e6e38 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -34,8 +34,8 @@ my ($bugdesc, $bugwrite, $table, $comb_app, $button_pkg, $package, $extra_data, foreach (@ARGV) { next unless defined $_; - /^--report$/ and $prog = shift @ARGV; - /^--incident$/ and do { $incident = 1; $prog = shift @ARGV }; + /^--report$/ && shift @ARGV and $prog = shift @ARGV; + /^--incident$/ && shift @ARGV and do { $incident = 1; $prog = shift @ARGV }; } my $window = ugtk2->new(N("Mandrakelinux Bug Report Tool"), center => 1); @@ -154,7 +154,7 @@ gtkadd($window->{window}, if ($stable_release == 0) { if (defined $prog) { update_app($prog); - $comb_app->entry->set_text($prog); + $comb_app->set_text($prog); }; $comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) }); } else { -- cgit v1.2.1