diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-09-07 06:45:58 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-09-07 06:45:58 +0000 |
| commit | 296fa74accf9b15a3065b3a052449d1359f531ee (patch) | |
| tree | fd511942855e394d41e889da780633aa91fa5b44 /perl-install | |
| parent | 997c4dbb2bb252c0b0920a67e9fa9a1781f3ef2d (diff) | |
| download | drakx-296fa74accf9b15a3065b3a052449d1359f531ee.tar drakx-296fa74accf9b15a3065b3a052449d1359f531ee.tar.gz drakx-296fa74accf9b15a3065b3a052449d1359f531ee.tar.bz2 drakx-296fa74accf9b15a3065b3a052449d1359f531ee.tar.xz drakx-296fa74accf9b15a3065b3a052449d1359f531ee.zip | |
- shift twice to get the correct function name
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbug | 6 |
1 files changed, 3 insertions, 3 deletions
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 { |