diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-12-09 12:26:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-12-09 12:26:05 +0000 |
| commit | 4e3418d2cff91b4e5bd755b040fa59cb24b4826a (patch) | |
| tree | e7aa5a29b38f02a198c93e17e1789261a4cab47b /perl-install | |
| parent | ace30310375861b7439179527b0b3f992a077fd9 (diff) | |
| download | drakx-backup-do-not-use-4e3418d2cff91b4e5bd755b040fa59cb24b4826a.tar drakx-backup-do-not-use-4e3418d2cff91b4e5bd755b040fa59cb24b4826a.tar.gz drakx-backup-do-not-use-4e3418d2cff91b4e5bd755b040fa59cb24b4826a.tar.bz2 drakx-backup-do-not-use-4e3418d2cff91b4e5bd755b040fa59cb24b4826a.tar.xz drakx-backup-do-not-use-4e3418d2cff91b4e5bd755b040fa59cb24b4826a.zip | |
small renicing
Diffstat (limited to 'perl-install')
| -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 { |