summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-12-09 12:26:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-12-09 12:26:05 +0000
commit4e3418d2cff91b4e5bd755b040fa59cb24b4826a (patch)
treee7aa5a29b38f02a198c93e17e1789261a4cab47b
parentace30310375861b7439179527b0b3f992a077fd9 (diff)
downloaddrakx-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
-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 {