summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:31:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:31:12 +0000
commit140383ca483b3d4773a7af31a94d6439dec68e4b (patch)
treea20f994d71c4955d056a4fac46153be7c74e90f0 /perl-install/standalone/drakbug
parentcc17bac7ba323b6a02c944d7489b01e0e0e64904 (diff)
downloaddrakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar
drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.gz
drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.bz2
drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.xz
drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 1828f9d26..3b9427618 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -64,7 +64,7 @@ my $mdk_app = {
N("Configuration Wizards") => 'wizdrake',
};
-my @generic_tool = keys %{$mdk_app};
+my @generic_tool = keys %$mdk_app;
my @all_drakxtools = @{ $mdk_app->{N("Standalone Tools")} };
push(@generic_tool,@all_drakxtools);
@@ -137,10 +137,10 @@ sub update_app {
$ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
if (member($text,@all_drakxtools) || $text eq N("Standalone Tools")) {
$app_choice = chomp_(`rpm -q drakxtools`);
- } elsif (member($text, keys %{$mdk_app}) && $text ne N("Standalone Tools")) {
+ } elsif (member($text, keys %$mdk_app) && $text ne N("Standalone Tools")) {
$app_choice = get_package($mdk_app->{$text});
} else {
- LOOP: while (my ($key,$value) = each %{$mdk_app}) {
+ LOOP: while (my ($key, $value) = each %$mdk_app) {
next if $key eq N("Standalone Tools");
if ($value eq $text) {
$app_choice = get_package($text);
@@ -168,14 +168,14 @@ sub get_package {
$rpm_package;
}
-sub parse_release {
+sub parse_release() {
my ($rel) = mandrake_release() =~ /release\s(\S+\s\(.*\))/;
$rel;
}
sub connect_bugzilla {
my ($url) = @_;
- my $w = $in->wait_message('', N("connecting to Bugzilla wizard ..."));
+ my $_w = $in->wait_message('', N("connecting to Bugzilla wizard ..."));
sleep(3);
exec $ENV{BROWSER},$url if exists $ENV{BROWSER};
my @browser = qw(mozilla konqueror galeon);
@@ -185,6 +185,6 @@ sub connect_bugzilla {
$in->ask_warn('', N("No browser available! Please install one"));
}
-sub quit_global {
+sub quit_global() {
ugtk2->exit(0);
}