diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/sound.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_newt.pm | 4 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 |
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; } |