summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm2
-rw-r--r--perl-install/install_steps_newt.pm4
-rw-r--r--perl-install/network/netconnect.pm2
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 269581488..232b2b086 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -141,7 +141,7 @@ sub do_switch {
unload($old_driver); # run_program("/sbin/modprobe -r $driver"); # just in case ...
modules::remove_module($old_driver); # completed by the next add_alias()
modules::add_alias("sound-slot-$::i", $new_driver);
- modules::write_conf;
+ modules::write_conf();
if ($new_driver =~ /^snd-/) {
rooted("service alsa start") unless $blacklisted;
rooted("/sbin/chkconfig --add alsa");
diff --git a/perl-install/install_steps_newt.pm b/perl-install/install_steps_newt.pm
index 2e62834dc..4ea47e564 100644
--- a/perl-install/install_steps_newt.pm
+++ b/perl-install/install_steps_newt.pm
@@ -20,9 +20,9 @@ my $banner = __();
sub banner {
my $banner = translate(__("Mandrake Linux Installation %s"));
- my $l = first(Newt::GetScreenSize) - length($banner) - length($_[0]) + 1;
+ my $l = first(Newt::GetScreenSize()) - length($banner) - length($_[0]) + 1;
Newt::DrawRootText(0, 0, sprintf($banner, ' ' x $l . $_[0]));
- Newt::Refresh;
+ Newt::Refresh();
}
sub new($$) {
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index cd8ccdec0..dc9d05ce8 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -78,7 +78,7 @@ sub detect {
my $modem = {};
require network::modem;
network::modem->import;
- my ($modem, @pci_modems) = detect_devices::getModem;
+ my ($modem, @pci_modems) = detect_devices::getModem();
$modem->{device} and $auto_detect->{modem} = $modem->{device};
show_pci_modems(@pci_modems) if @pci_modems;
}