summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-13 08:42:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-13 08:42:46 +0000
commita0daddd28e284027822506dab2117b01d20dae2f (patch)
treeac3dabb811f45005da19d4189d649de84aa1f442 /perl-install
parent19082bc5482c550cb4c5cf7d68523374a3c3eeff (diff)
downloaddrakx-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.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
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;