diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-13 08:42:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-13 08:42:46 +0000 |
| commit | a0daddd28e284027822506dab2117b01d20dae2f (patch) | |
| tree | ac3dabb811f45005da19d4189d649de84aa1f442 /perl-install | |
| parent | 19082bc5482c550cb4c5cf7d68523374a3c3eeff (diff) | |
| download | drakx-a0daddd28e284027822506dab2117b01d20dae2f.tar drakx-a0daddd28e284027822506dab2117b01d20dae2f.tar.gz drakx-a0daddd28e284027822506dab2117b01d20dae2f.tar.bz2 drakx-a0daddd28e284027822506dab2117b01d20dae2f.tar.xz drakx-a0daddd28e284027822506dab2117b01d20dae2f.zip | |
perl_checker compliance
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 3eef8f478..199fe3ee0 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -297,7 +297,7 @@ sub setupBootloader__entries { { label => N("Video mode"), val => \$vga, list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], format => \&Xconfig::resolution_and_depth::to_string, advanced => 1 }, ), { label => N("Initrd"), val => \$e->{initrd}, list => [ map { if_(/^initrd/, "/boot/$_") } all("$::prefix/boot") ], not_edit => 0, advanced => 1 }, -{ label => N("Network profile"), val => \$netprofile, list => [ sort (uniq('', $netprofile, network::netconnect::get_profiles())) ], advanced => 1 }, +{ label => N("Network profile"), val => \$netprofile, list => [ sort(uniq('', $netprofile, network::netconnect::get_profiles())) ], advanced => 1 }, ); } else { @l = ( diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index f8e010941..1595eee36 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -200,7 +200,7 @@ sub selectMouse { } sub reallyChooseGroups { - my ($o, $size_to_display, $individual, $compssUsers) = @_; + my ($o, $size_to_display, $individual, $_compssUsers) = @_; my $w = ugtk2->new(''); my $tips = Gtk2::Tooltips->new; |