52 files changed, 177 insertions, 183 deletions

diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm
index 5c38e7332..6a07e1cd6 100644
--- a/perl-install/Xconfig/card.pm
+++ b/perl-install/Xconfig/card.pm
@@ -416,8 +416,8 @@ sub multi_head_choices {
 }
 
 #- XFree version available, it would be better to parse available package and get version from it.
-sub xfree4_version { '4.3' }
-sub xfree3_version { '3.3.6' }
+sub xfree4_version() { '4.3' }
+sub xfree3_version() { '3.3.6' }
 
 sub xfree_and_glx_choices {
     my ($card) = @_;
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index 1df15ecd5..27475c0d1 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -9,7 +9,7 @@ use any;
 use log;
 
 
-sub good_default_monitor {
+sub good_default_monitor() {
     arch() =~ /ppc/ ? 
       (detect_devices::get_mac_model() =~ /^iBook/ ? 'Apple|iBook 800x600' : 'Apple|iMac/PowerBook 1024x768') :
       (detect_devices::isLaptop() ? 'Generic|Flat Panel 1024x768' : 'Generic|1024x768 @ 70 Hz');
@@ -156,7 +156,7 @@ sub configure_automatic {
     return $monitor->{HorizSync} && $monitor->{VertRefresh};
 }
 
-sub getinfoFromDDC {
+sub getinfoFromDDC() {
     my ($VideoRam, @l) = any::ddcxinfos() or return;
 
     my @Modes;
@@ -180,7 +180,7 @@ sub getinfoFromDDC {
     };
 }
 
-sub monitors {
+sub monitors() {
     readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB");
 }
 sub readMonitorsDB {
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index d277937c5..5849a1c17 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -142,7 +142,7 @@ sub configure_FB_TVOUT {
     }
 }
 
-sub check_XF86Config_symlink {
+sub check_XF86Config_symlink() {
     my $f = "$::prefix/etc/X11/XF86Config-4";
     if (!-l $f && -e "$f.tvout") {
 	rename $f, "$f.standard";
diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm
index 450ce3461..8f61fe55a 100644
--- a/perl-install/Xconfig/xfree3.pm
+++ b/perl-install/Xconfig/xfree3.pm
@@ -109,7 +109,9 @@ sub is_fbdev {
     val($Screen->{Server}) eq 'FBDev';
 }
 
-sub set_Option {}
+sub set_Option {
+    my ($_raw_X, $_category, $_node, @_names) = @_;
+}
 
 
 sub val {
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 423bf990c..ce3680410 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -19,7 +19,7 @@ use modules;
 use log;
 use c;
 
-sub drakx_version { 
+sub drakx_version() { 
     sprintf "DrakX v%s built %s", $::testing ? ('TEST', scalar gmtime()) : (split('/', cat_("$ENV{SHARE_PATH}/VERSION")))[2,3];
 }
 
@@ -80,7 +80,7 @@ sub hdInstallPath() {
     $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail");
 }
 
-sub kernelVersion {
+sub kernelVersion() {
     my $kernel = readlink("$::prefix/boot/vmlinuz") || first(all("$::prefix/boot"));
     first($kernel =~ /vmlinuz-(.*)/);
 }
@@ -863,7 +863,7 @@ You can use userdrake to add a user to this group.")
     }
 }
 
-sub ddcxinfos {
+sub ddcxinfos() {
     return if $::noauto;
 
     my @l;
@@ -881,7 +881,7 @@ sub ddcxinfos {
     @l;
 }
 
-sub running_window_manager {
+sub running_window_manager() {
     my @window_managers = qw(kwin gnome-session icewm wmaker afterstep fvwm fvwm2 fvwm95 mwm twm enlightenment xfce blackbox sawfish olvwm);
 
     foreach (@window_managers) {
diff --git a/perl-install/c.pm b/perl-install/c.pm
index 0d5fe8f00..56996ecf5 100644
--- a/perl-install/c.pm
+++ b/perl-install/c.pm
@@ -5,7 +5,7 @@ use vars qw($AUTOLOAD);
 use c::stuff;
 use MDK::Common;
 
-sub AUTOLOAD {
+sub AUTOLOAD() {
     $AUTOLOAD =~ /::(.*)/;
     my @l = eval { &{$c::stuff::{$1}} };
     if (my $err = $@) {
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index fb5a8ada3..eb14a1362 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -38,13 +38,13 @@ sub getopts {
     @r;
 }
 
-sub true { exit 0 }
-sub false { exit 1 }
+sub true() { exit 0 }
+sub false() { exit 1 }
 sub cat { @ARGV = @_; print while <> }
 sub dirname_ { print dirname(@_), "\n" }
 sub basename_ { print basename(@_), "\n" }
 sub rmdir_ { foreach (@_) { rmdir $_ or die "rmdir: can't remove $_\n" } }
-sub lsmod { print "Module                  Size  Used by\n"; cat("/proc/modules") }
+sub lsmod() { print "Module                  Size  Used by\n"; cat("/proc/modules") }
 sub which { 
   ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG } }
 }
@@ -447,13 +447,13 @@ sub kill {
     kill $signal, @_ or die "kill failed: $!\n";
 }
 
-sub lspci {
+sub lspci() {
     require detect_devices;
     print join "\n", detect_devices::stringlist(1), '';
 }
 *lssbus = \&lspci;
 
-sub dmesg { print cat_("/tmp/syslog") }
+sub dmesg() { print cat_("/tmp/syslog") }
 
 sub sort {
     my ($n, $h) = getopts(\@_, qw(nh));
@@ -518,6 +518,6 @@ sub loadkeys {
     keyboard::setup({ KEYBOARD => $_[0] });
 }
 
-sub sync { common::sync() }
+sub sync() { common::sync() }
 
 1;
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 72a40bd32..87a491bcd 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -137,7 +137,7 @@ sub formatTime {
     }
 }
 
-sub usingRamdisk { any { /ram3/ } cat_("/proc/mounts") }
+sub usingRamdisk() { any { /ram3/ } cat_("/proc/mounts") }
 
 sub expand_symlinks_but_simple {
     my ($f) = @_;
@@ -160,7 +160,7 @@ sub group_n_lm {
     @l
 }
 
-sub screenshot_dir__and_move {
+sub screenshot_dir__and_move() {
     my ($dir1, $dir2) = ("$::prefix/root", '/tmp/stage2');
     if (-e $dir1) {
 	if (-e "$dir2/DrakX-screenshots") {
@@ -173,7 +173,7 @@ sub screenshot_dir__and_move {
     }
 }
 
-sub take_screenshot {
+sub take_screenshot() {
     my $dir = screenshot_dir__and_move() . '/DrakX-screenshots';
     my $warn;
     if (!-e $dir) {
@@ -241,11 +241,11 @@ sub set_permissions {
 	or die "Could not start chmod!";
 }
 
-sub mandrake_release {
+sub mandrake_release() {
     chomp_(cat_("/etc/mandrake-release"))
 }
 
-sub require_root_capability {
+sub require_root_capability() {
     return unless $>; # we're already root
     if (check_for_xserver()) {
 	if (fuzzy_pidofs(qr/\bkwin\b/) > 0) {
@@ -258,7 +258,7 @@ sub require_root_capability {
     die "you must be root to run this program" if $>;
 }
 
-sub check_for_xserver {
+sub check_for_xserver() {
     if (!defined $::xtest) {
         $::xtest = $ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0;
     }
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index 76821f38c..8fa979678 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -45,7 +45,7 @@ use ftp;
 %mirrors = ();
 
 sub mirror2text { $mirrors{$_[0]} && $mirrors{$_[0]}[0] . '|' . $_[0] }
-sub mirrors {
+sub mirrors() {
     unless (keys %mirrors) {
 	#- contact the following URL to retrieve list of mirror.
 	#- http://www.linux-mandrake.com/mirrorsfull.list
@@ -98,7 +98,7 @@ sub bestMirror {
 }
 
 #- hack to retrieve Mandrake Linux version...
-sub version {
+sub version() {
     require pkgs;
     my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release');
     $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-)
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 49a0890ea..dde0ce63f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -22,10 +22,10 @@ my %serialprobe;
 #-######################################################################################
 #- Functions
 #-######################################################################################
-sub dev_is_devfs { -e "/dev/.devfsd" } #- no $::prefix, returns false during install and that's nice :)
+sub dev_is_devfs() { -e "/dev/.devfsd" } #- no $::prefix, returns false during install and that's nice :)
 
 
-sub get {
+sub get() {
     #- Detect the default BIOS boot harddrive is kind of tricky. We may have IDE,
     #- SCSI and RAID devices on the same machine. From what I see so far, the default
     #- BIOS boot harddrive will be
@@ -35,15 +35,15 @@ sub get {
 
     getIDE(), getSCSI(), getDAC960(), getCompaqSmartArray(), getATARAID();
 }
-sub hds         { grep { $_->{media_type} eq 'hd' && !isRemovableDrive($_) } get() }
-sub tapes       { grep { $_->{media_type} eq 'tape' } get() }
-sub cdroms      { grep { $_->{media_type} eq 'cdrom' } get() }
-sub burners     { grep { isBurner($_) } cdroms() }
-sub dvdroms     { grep { isDvdDrive($_) } cdroms() }
-sub raw_zips    { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() }
+sub hds()         { grep { $_->{media_type} eq 'hd' && !isRemovableDrive($_) } get() }
+sub tapes()       { grep { $_->{media_type} eq 'tape' } get() }
+sub cdroms()      { grep { $_->{media_type} eq 'cdrom' } get() }
+sub burners()     { grep { isBurner($_) } cdroms() }
+sub dvdroms()     { grep { isDvdDrive($_) } cdroms() }
+sub raw_zips()    { grep { member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get() }
 #-sub jazzs     { grep { member($_->{media_type}, 'fd', 'hd') && isJazzDrive($_) } get() }
-sub ls120s      { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() }
-sub zips        {
+sub ls120s()      { grep { member($_->{media_type}, 'fd', 'hd') && isLS120Drive($_) } get() }
+sub zips()        {
     map { 
 	$_->{device} .= 4; 
 	$_->{devfs_device} = $_->{devfs_prefix} . '/part4'; 
@@ -51,8 +51,8 @@ sub zips        {
     } raw_zips();
 }
 
-sub cdroms__faking_ide_scsi { grep { $_->{media_type} eq 'cdrom' } cdroms_and_zips__faking_ide_scsi() }
-sub cdroms_and_zips__faking_ide_scsi {
+sub cdroms__faking_ide_scsi() { grep { $_->{media_type} eq 'cdrom' } cdroms_and_zips__faking_ide_scsi() }
+sub cdroms_and_zips__faking_ide_scsi() {
     my @l = grep { $_->{media_type} eq 'cdrom' || member($_->{media_type}, 'fd', 'hd') && isZipDrive($_) } get();
 
     if (my @l_need_fake = grep { !$::isStandalone && $_->{bus} eq 'ide' && !($_->{media_type} eq 'cdrom' && !isBurner($_)) } @l) {
@@ -101,10 +101,10 @@ sub floppies() {
     @ide, @scsi, @fds;
 }
 sub floppies_dev() { map { $_->{device} } floppies() }
-sub floppy { first(floppies_dev()) }
+sub floppy() { first(floppies_dev()) }
 #- example ls120, model = "LS-120 SLIM 02 UHD Floppy"
 
-sub removables {
+sub removables() {
     floppies(), cdroms_and_zips__faking_ide_scsi();
 }
 
@@ -341,7 +341,7 @@ sub getDAC960() {
     values %idi;
 }
 
-sub getATARAID {
+sub getATARAID() {
     my %l;
     foreach (syslog()) {
 	my ($device) = m|^\s*(ataraid/d\d+):| or next;
@@ -361,7 +361,7 @@ sub getATARAID {
 # cpu_freq = arch() =~ /^alpha/ ? "cycle frequency [Hz]" :
 # arch() =~ /^ppc/ ? "clock" : "cpu MHz"
 
-sub getCPUs { 
+sub getCPUs() { 
     my (@cpus, $cpu);
     foreach (cat_("/proc/cpuinfo")) {
 	   if (/^processor/) { # ix86 specific
@@ -375,13 +375,13 @@ sub getCPUs {
     @cpus;
 }
 
-sub getSoundDevices {
+sub getSoundDevices() {
     (arch() =~ /ppc/ ? \&modules::load_category : \&modules::probe_category)->('multimedia/sound');
 }
 
 sub isTVcard { $_[0]{driver} =~ /bttv|saa7134/ }
 
-sub getTVcards { 
+sub getTVcards() { 
     grep { isTVcard($_) } detect_devices::probeall();
 }
 
@@ -411,10 +411,10 @@ sub getModem() {
     getSerialModem({}), @pci_modems;
 }
 
-sub getSpeedtouch {
+sub getSpeedtouch() {
     grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall(0);
 }
-sub getSagem {
+sub getSagem() {
     grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall(0);
 }
 
@@ -478,7 +478,7 @@ sub pci_probe {
     } c::pci_probe($probe_type || 0));
 }
 
-sub usb_probe {
+sub usb_probe() {
     -e "/proc/bus/usb/devices" or return;
 
     add_addons($usbtable_addons, map {
@@ -490,7 +490,7 @@ sub usb_probe {
     } c::usb_probe());
 }
 
-sub pcmcia_probe {
+sub pcmcia_probe() {
     -e '/var/run/stab' || -e '/var/lib/pcmcia/stab' or return ();
 
     my (@devs, $desc);
@@ -541,7 +541,7 @@ sub tryWrite($) {
     sysopen $F, devices::make($_[0]), 1 | c::O_NONBLOCK() and $F;
 }
 
-sub syslog {
+sub syslog() {
     -r "/tmp/syslog" and return map { /<\d+>(.*)/ } cat_("/tmp/syslog");
     my $LD_LOADER = $ENV{LD_LOADER} || "";
     `$LD_LOADER /bin/dmesg`;
@@ -567,23 +567,23 @@ sub get_mac_generation() {
     return "Unknown Generation";	
 }
 
-sub hasSMP { !$::testing && c::detectSMP() }
-sub hasPCMCIA { $::o->{pcmcia} } #- because /proc/pcmcia seems not to be present on 2.4 at least (or use /var/run/stab)
+sub hasSMP() { !$::testing && c::detectSMP() }
+sub hasPCMCIA() { $::o->{pcmcia} } #- because /proc/pcmcia seems not to be present on 2.4 at least (or use /var/run/stab)
 
 #- try to detect a laptop, we assume pcmcia service is an indication of a laptop or
 #- the following regexp to match graphics card apparently only used for such systems.
-sub isLaptop {
+sub isLaptop() {
     hasPCMCIA() || (matching_desc('C&T.*655[45]\d') || matching_desc('C&T.*68554') ||
 		    matching_desc('Neomagic.*Magic(Media|Graph)') ||
 		    matching_desc('ViRGE.MX') || matching_desc('S3.*Savage.*[IM]X') ||
 		    matching_desc('ATI.*(Mobility|LT)'));
 }
 
-sub usbMice      { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ ||
+sub usbMice()      { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ ||
 			  $_->{driver} =~ /Mouse:USB/ } usb_probe() }
-sub usbWacom     { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() }
-sub usbKeyboards { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() }
-sub usbStorage   { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() }
+sub usbWacom()     { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() }
+sub usbKeyboards() { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() }
+sub usbStorage()   { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() }
 
 sub usbKeyboard2country_code {
     my ($usb_kbd) = @_;
@@ -594,7 +594,7 @@ sub usbKeyboard2country_code {
       unpack("C", $tmp);
 }
 
-sub probeSerialDevices {
+sub probeSerialDevices() {
     foreach (0..3) {
 	#- make sure the device are created before probing,
 	devices::make("/dev/ttyS$_");
@@ -634,7 +634,7 @@ sub hasMousePS2 {
     my $t; sysread(tryOpen($_[0]) || return, $t, 256) != 1 || $t ne "\xFE";
 }
 
-sub raidAutoStartIoctl {
+sub raidAutoStartIoctl() {
     sysopen(my $F, devices::make("md0"), 2) or return;
     ioctl $F, 2324, 0;
 }
@@ -677,7 +677,7 @@ sub raidAutoStart {
     }
 }
 
-sub is_a_recent_computer {
+sub is_a_recent_computer() {
     my ($frequence) = map { /cpu MHz\s*:\s*(.*)/ } cat_("/proc/cpuinfo");
     $frequence > 600;
 }
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 7c57f43a0..e3ecc3185 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -37,7 +37,7 @@ sub del_loop {
     my ($dev) = @_;
     run_program::run("losetup", "-d", $dev);
 }
-sub find_free_loop {
+sub find_free_loop() {
     foreach (0..7) {
 	my $dev = make("loop$_");
 	sysopen(my $F, $dev, 2) or next;
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 2071b3e4a..82fe1964a 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -304,11 +304,11 @@ sub create_buttons4partitions {
 ################################################################################
 # disks: helpers
 ################################################################################
-sub current_hd { 
+sub current_hd() { 
     $current_kind->{type} eq 'hd' or die 'current_hd called but $current_kind is not an hd';
     $current_kind->{val};
 }
-sub current_part {
+sub current_part() {
     current_hd();
     $current_entry;
 }
@@ -369,14 +369,14 @@ sub lvm2kind {
 ################################################################################
 # raids: helpers
 ################################################################################
-sub raid2kind {
+sub raid2kind() {
     { type => 'raid', name => 'raid', val => $all_hds->{raids} };
 }
 
 ################################################################################
 # loopbacks: helpers
 ################################################################################
-sub loopback2kind {
+sub loopback2kind() {
     { type => 'loopback', name => 'loopback', val => $all_hds->{loopbacks} };
 }
 
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index f32c872c7..85cdfa54e 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -235,6 +235,7 @@ sub main {
 # general actions
 ################################################################################
 sub general_possible_actions {
+    my ($_in, $_all_hds) = @_;
     N_("Undo"), ($::expert ? N_("Toggle to normal mode") : N_("Toggle to expert mode"));
 }
 
@@ -932,8 +933,8 @@ sub Options {
 
 { 
     no strict; 
-    *{'Toggle to normal mode'} = sub { $::expert = 0 };
-    *{'Toggle to expert mode'} = sub { $::expert = 1 };
+    *{'Toggle to normal mode'} = sub() { $::expert = 0 };
+    *{'Toggle to expert mode'} = sub() { $::expert = 1 };
     *{'Clear all'} = \&Clear_all;
     *{'Auto allocate'} = \&Auto_allocate;
     *{'Mount point'} = \&Mount_point;
diff --git a/perl-install/diskdrake/removable.pm b/perl-install/diskdrake/removable.pm
index 939e61283..6862225c5 100644
--- a/perl-install/diskdrake/removable.pm
+++ b/perl-install/diskdrake/removable.pm
@@ -19,7 +19,7 @@ sub main {
     }
 }
 
-sub actions {
+sub actions() {
     (
      N_("Mount point") => \&mount_point,
      N_("Options") => \&options,
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index 51152d991..8197d9ed1 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -261,11 +261,11 @@ sub add_smbnfs {
     $kind;
 }
 
-sub nfs2kind {
+sub nfs2kind() {
     network::nfs->new({ type => 'nfs', name => 'NFS', val => $all_hds->{nfss}, no_auto => 1 });
 }
 
-sub smb2kind {
+sub smb2kind() {
     network::smb->new({ type => 'smb', name => 'Samba', val => $all_hds->{smbs}, no_auto => 1 });
 }
 
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 40ee13b21..618c58f7d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -298,7 +298,7 @@ sub auto_fs() {
     grep { chop; $_ && !/nodev/ } cat_("/etc/filesystems");
 }
 
-sub mount_options {
+sub mount_options() {
     my %non_defaults = (
 			sync => 'async', noatime => 'atime', noauto => 'auto', ro => 'rw', 
 			user => 'nouser', nodev => 'dev', noexec => 'exec', nosuid => 'suid',
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 978735b2a..c3303c83e 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -78,7 +78,7 @@ sub typeOfPart {
 #-######################################################################################
 #- Functions
 #-######################################################################################
-sub empty_all_hds {
+sub empty_all_hds() {
     { hds => [], lvms => [], raids => [], loopbacks => [], raw_hds => [], nfss => [], smbs => [], davs => [], special => [] };
 }
 sub recompute_loopbacks {
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index a89357b16..ba3248469 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -11,7 +11,7 @@ our ($version, $sbindir, $bindir) = ("9.1.0", "/usr/sbin", "/usr/bin");
 my @devices = detect_devices::probeall(1);
 
 # Update me each time you handle one more devices class (aka configurator)
-sub unknown {
+sub unknown() {
     grep { $_->{media_type} !~ /BRIDGE|class\|Mouse|DISPLAY|Hub|MEMORY_RAM|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|NETWORK|Printer|SERIAL_(USB|SMBUS)|STORAGE_(IDE|OTHER|SCSI)|tape/
 	       && $_->{driver} !~ /^(ohci1394|scanner|usbvision|mod_quickcam)$|Mouse:USB|class\|Mouse|Removable:zip|www.linmodems.org|nvnet/
 	       && $_->{type} ne 'network'
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 154f3ba29..aff29c8e0 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -288,7 +288,7 @@ The current driver for your \"%s\" sound card is \"%s\" ", $device->{description
 }
 
 
-sub configure_sound_slots {
+sub configure_sound_slots() {
     each_index {
         modules::add_alias("sound-slot-$::i", $_->{driver});
     } detect_devices::getSoundDevices();
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 4f268c3e2..e019b8538 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -302,7 +302,7 @@ sub exitInstall {
 }
 
 
-sub start_i810fb {
+sub start_i810fb() {
 
     my ($vga) = cat_('/proc/cmdline') =~ /vga=(\S+)/;
     return if !$vga || listlength(cat_('/proc/fb'));
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a43dc80c8..0ff254444 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -188,13 +188,13 @@ sub clean_postinstall_rpms() {
 #-######################################################################################
 #- Functions
 #-######################################################################################
-sub getNextStep {
+sub getNextStep() {
     my ($s) = $::o->{steps}{first};
     $s = $::o->{steps}{$s}{next} while $::o->{steps}{$s}{done} || !$::o->{steps}{$s}{reachable};
     $s;
 }
 
-sub spawnShell {
+sub spawnShell() {
     return if $::o->{localInstall} || $::testing;
 
     -x "/bin/sh" or die "cannot open shell - /bin/sh doesn't exist";
@@ -280,7 +280,6 @@ sub setPackages {
 	#- open rpm db according to right mode needed.
 	$o->{packages}{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix}, $rebuild_needed);
 
-	pkgs::getDeps($o->{prefix}, $o->{packages});
 	pkgs::selectPackage($o->{packages},
 			    pkgs::packageByName($o->{packages}, 'basesystem') || die("missing basesystem package"), 1);
 
@@ -289,9 +288,6 @@ sub setPackages {
 	pkgs::selectPackage($o->{packages},
 			    pkgs::bestKernelPackage($o->{packages}) || die("missing kernel package"), 1);
 
-	#- must be done after selecting base packages (to save memory)
-	pkgs::getProvides($o->{packages});
-
 	#- must be done after getProvides
 	pkgs::read_rpmsrate($o->{packages}, getFile("Mandrake/base/rpmsrate"));
 	($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{meta_class});
@@ -507,7 +503,7 @@ sub write_smb_conf {
 ");
 }
 
-sub killCardServices {
+sub killCardServices() {
     my $pid = chomp_(cat_("/tmp/cardmgr.pid"));
     $pid and kill(15, $pid); #- send SIGTERM
 }
@@ -609,8 +605,8 @@ sub install_urpmi {
   hdlist: hdlist.$name.cz
   with_hdlist: ../base/" . ($_->{update} ? "hdlist.cz" : $_->{hdlist}) . ($need_list ? "
   list: list.$name" : "") . ($dir =~ /removable:/ && "
-  removable: /dev/cdrom") . ("
-  update") . "
+  removable: /dev/cdrom") . "
+  update" . "
 }
 
 ";
@@ -1111,7 +1107,7 @@ sub remove_unused {
     }
 }
 
-sub remove_bigseldom_used {
+sub remove_bigseldom_used() {
     log::l("remove_bigseldom_used");
     $::testing and return;
     remove_unused();
diff --git a/perl-install/install_messages.pm b/perl-install/install_messages.pm
index b3d4af2b3..ccb54229c 100644
--- a/perl-install/install_messages.pm
+++ b/perl-install/install_messages.pm
@@ -5,7 +5,7 @@ use strict;
 
 use common;
 
-sub main_license {
+sub main_license() {
 N("Introduction
 
 The operating system and the different components available in the Mandrake Linux distribution 
@@ -85,14 +85,14 @@ For any question on this document, please contact MandrakeSoft S.A.
 ");
 }
 
-sub warning_about_patents {
+sub warning_about_patents() {
 "Warning: Free Software may not necessarily be patent free, and some Free
 Software included may be covered by patents in your country. For example, the
 MP3 decoders included may require a licence for further usage (see
 http://www.mp3licensing.com for more details). If you are unsure if a patent
 may be applicable to you, check your local laws.";
 }
-sub com_license { 
+sub com_license() { 
 N("
 Warning
 
@@ -124,7 +124,7 @@ copyright laws applicable to software programs.
 ");
 }
 
-sub install_completed {
+sub install_completed() {
 N("Congratulations, installation is complete.
 Remove the boot media and press return to reboot.
 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 4d0b362c7..6de423d50 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -78,7 +78,11 @@ Continue at your own risk."), formatError($@) ]) if $@;
     }
 }
 
-sub errorInStep($$) { print "error :(\n"; c::_exit(1) }
+sub errorInStep { 
+    my ($_o, $_err) = @_;
+    print "error :(\n"; 
+    c::_exit(1);
+}
 sub kill_action {}
 
 #-######################################################################################
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index b2f729f05..a4a92f1e3 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -90,9 +90,12 @@ sub ask_warn {
     log::l(ref($_[1]) ? join " ", @{$_[1]} : $_[1]);
 }
 
-sub wait_message {}
+sub wait_message {
+    my ($_o, $_title, $_message) = @_;
+}
 
 sub errorInStep {
+    my ($_o, $_err) = @_;
     print "error :(\n"; 
     print "switch to console f2 for a shell\n";
     print "Press <Enter> to reboot\n";
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8158c23e0..46ae5bf15 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -35,7 +35,7 @@ use log;
 #-######################################################################################
 #- In/Out Steps Functions
 #-######################################################################################
-sub errorInStep($$) {
+sub errorInStep {
     my ($o, $err) = @_;
     $o->ask_warn(N("Error"), [ N("An error occurred"), formatError($err) ]);
 }
@@ -45,7 +45,9 @@ sub kill_action {
     $o->kill;
 }
 
-sub charsetChanged {}
+sub charsetChanged {
+    my ($_o) = @_;
+}
 
 #-######################################################################################
 #- Steps Functions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 46a325631..603b5d81a 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -107,16 +107,16 @@ sub vnew {
 
     require 'log.pm'; #- "require log" causes some pb, perl thinking that "log" is the log() function
     undef *log::l;
-    *log::l = sub {}; # otherwise, it will bother us :(
+    *log::l = sub() {}; # otherwise, it will bother us :(
     require interactive::newt;
     interactive::newt->new;
 }
 
-sub enter_console {}
-sub leave_console {}
-sub suspend {}
-sub resume {}
-sub end {}
+sub enter_console() {}
+sub leave_console() {}
+sub suspend() {}
+sub resume() {}
+sub end() {}
 sub exit { exit($_[0]) }
 
 #-######################################################################################
@@ -444,7 +444,7 @@ sub wait_message {
     $b;
 }
 
-sub kill {}
+sub kill() {}
 
 
 
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index a4f9e3bfd..27ae507d8 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -17,7 +17,7 @@ my $uid;
 my $pipe_r = "/tmp/interactive_http_r";
 my $pipe_w = "/tmp/interactive_http_w";
 
-sub open_stdout {
+sub open_stdout() {
     open STDOUT, ">$pipe_w" or die;
     $| = 1;
     print CGI::header();
@@ -31,12 +31,12 @@ sub cont_stdout {
     $no_header = 0;
 }
 
-sub new_uid {
+sub new_uid() {
     my ($s, $ms) = gettimeofday();
     $s * 256 + $ms % 256;
 }
 
-sub new() {
+sub new {
     open_stdout();
     bless {}, $_[0];
 }
@@ -49,7 +49,7 @@ sub end() {
     close STDOUT;
     unlink $pipe_r, $pipe_w;
 }
-sub exit() { end(); exit($_[1]) }
+sub exit { end(); exit($_[1]) }
 END { end() }
 
 sub ask_fromW {
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index b94ae9193..087b19112 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -14,7 +14,7 @@ use Newt::Newt; #- !! provides Newt and not Newt::Newt
 my ($width, $height) = (80, 25);
 my @wait_messages;
 
-sub new() {
+sub new {
     Newt::Init();
     Newt::Cls();
     Newt::SetSuspendCallback();
@@ -23,12 +23,12 @@ sub new() {
     bless {}, $_[0];
 }
 
-sub enter_console { Newt::Suspend() }
-sub leave_console { Newt::Resume() }
-sub suspend { Newt::Suspend() }
-sub resume { Newt::Resume() }
+sub enter_console() { Newt::Suspend() }
+sub leave_console() { Newt::Resume() }
+sub suspend() { Newt::Suspend() }
+sub resume() { Newt::Resume() }
 sub end() { Newt::Finished() }
-sub exit() { end(); exit($_[1]) }
+sub exit { end(); exit($_[1]) }
 END { end() }
 
 sub messages { 
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index a37b08c8e..209310339 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -11,7 +11,7 @@ use common;
 
 $| = 1;
 
-sub readln {
+sub readln() {
     my $l = <STDIN>;
     chomp $l;
     $l;
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 3e65df61e..a4239f73b 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -261,9 +261,9 @@ my %grp_toggles = (
 #-######################################################################################
 #- Functions
 #-######################################################################################
-sub KEYBOARDs { keys %keyboards }
+sub KEYBOARDs() { keys %keyboards }
 sub KEYBOARD2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
-sub keyboards { map { { KEYBOARD => $_ } } keys %keyboards }
+sub keyboards() { map { { KEYBOARD => $_ } } keys %keyboards }
 sub keyboard2one {
     my ($keyboard, $nb) = @_;
     ref $keyboard or internal_error();
@@ -351,7 +351,7 @@ sub lang2keyboard {
     { KEYBOARD => $keyboards{$kb} ? $kb : 'us' }; #- handle incorrect keyboard mapping to us.
 }
 
-sub from_usb {
+sub from_usb() {
     return if $::noauto;
     my ($usb_kbd) = detect_devices::usbKeyboards() or return;
     my $country_code = detect_devices::usbKeyboard2country_code($usb_kbd) or return;
@@ -478,7 +478,7 @@ sub write {
     }
 }
 
-sub read {
+sub read() {
     my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return;
     if (!$keyboard{KEYBOARD}) {
 	add2hash(\%keyboard, grep { keyboard2kmap($_) eq $keyboard{KEYTABLE} } keyboards());
@@ -488,7 +488,7 @@ sub read {
     keyboard2text(\%keyboard) ? \%keyboard : {};
 }
 
-sub check {
+sub check() {
     require lang;
     $^W = 0;
 
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 0e14abe15..6a13bad9a 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm