diff options
| -rw-r--r-- | perl-install/install_steps.pm | 2 | ||||
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
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 { |