summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;