summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-09-07 06:45:58 +0000
committerDaouda Lo <daouda@mandriva.com>2004-09-07 06:45:58 +0000
commit296fa74accf9b15a3065b3a052449d1359f531ee (patch)
treefd511942855e394d41e889da780633aa91fa5b44 /perl-install
parent997c4dbb2bb252c0b0920a67e9fa9a1781f3ef2d (diff)
downloaddrakx-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-xperl-install/standalone/drakbug6
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 {