summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps.pm2
-rw-r--r--perl-install/interactive_gtk.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 0eaad5129..db92fb75e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -103,7 +103,7 @@ sub selectKeyboard {
#------------------------------------------------------------------------------
sub selectPath {}
#------------------------------------------------------------------------------
-sub selectInstallClass($@) {
+sub selectInstallClass {
my ($o) = @_;
$o->{installClass} ||= $::corporate ? "corporate" : "normal";
$o->{security} ||= ${{
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index f4209c073..8f045f00a 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -252,7 +252,7 @@ sub ask_from_entries_refW {
} else {
new Gtk::Entry;
}
- } @{$val};
+ } @$val;
my $ok = $w->create_okcancel(@okcancel);
sub widget {