diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-10-12 12:14:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-10-12 12:14:53 +0000 |
| commit | 4e4646ec0a56393453e36f68d8d9cefb26fade4f (patch) | |
| tree | fb4a024d81f2f82de93a50197f6bacfa66e147a0 /perl-install | |
| parent | 6098ab174fba33c6985a85784d965c48170061eb (diff) | |
| download | drakx-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-x | perl-install/commands | 2 | ||||
| -rw-r--r-- | perl-install/harddrake/data.pm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 2 |
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")); |