summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-10-12 12:14:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-10-12 12:14:53 +0000
commit4e4646ec0a56393453e36f68d8d9cefb26fade4f (patch)
treefb4a024d81f2f82de93a50197f6bacfa66e147a0 /perl-install
parent6098ab174fba33c6985a85784d965c48170061eb (diff)
downloaddrakx-4e4646ec0a56393453e36f68d8d9cefb26fade4f.tar
drakx-4e4646ec0a56393453e36f68d8d9cefb26fade4f.tar.gz
drakx-4e4646ec0a56393453e36f68d8d9cefb26fade4f.tar.bz2
drakx-4e4646ec0a56393453e36f68d8d9cefb26fade4f.tar.xz
drakx-4e4646ec0a56393453e36f68d8d9cefb26fade4f.zip
perl_checker cleanup
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/commands2
-rw-r--r--perl-install/harddrake/data.pm2
-rwxr-xr-xperl-install/standalone/drakperm2
3 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/commands b/perl-install/commands
index 741f74154..442da9ed3 100755
--- a/perl-install/commands
+++ b/perl-install/commands
@@ -17,4 +17,4 @@ eval {
};
die formatError($@) . "\n";
-sub err { die "$0: unknown program (unimplemented)\n" }
+sub err() { die "$0: unknown program (unimplemented)\n" }
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index d9b83195a..8057c0a5b 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -439,7 +439,7 @@ our @tree =
icon => "memory.png",
configurator => "",
detector => sub { f(grep { $_->{media_type} =~ /BRIDGE|MEMORY_RAM|SYSTEM_OTHER/
- || $_->{description} =~ /Parallel Port Adapter/
+ || $_->{description} =~ /Parallel Port Adapter/;
} @devices) },
checked_on_boot => 0,
},
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index eb59bf13a..37ae77249 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -241,7 +241,7 @@ sub row_setting_dialog {
# $dlg->set_resizable(0);
my $browse = Gtk2::Button->new(N("browse"));
my $file = Gtk2::Entry->new;
- my ($other, $group, $user, $s) = reverse(split(//, $model->get($o_iter, 4))) if $o_iter;
+ my ($other, $group, $user, $s) = $o_iter ? reverse(split(//, $model->get($o_iter, 4))) : ();
my @bits = qw(sticky gid suid);
my @rights = qw(read write execute);
my @owners = (N_("user"), N_("group"), N_("other"));