From 4e3418d2cff91b4e5bd755b040fa59cb24b4826a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 9 Dec 2000 12:26:05 +0000
Subject: small renicing

---
 perl-install/install_steps.pm   | 2 +-
 perl-install/interactive_gtk.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1