summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-10-23 11:22:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-10-23 11:22:41 +0000
commit68b151a5194f36584d0c27d8e95fb1f84eedcd1f (patch)
treed714b71047130e9a2af1e30622c9e986c435dc71 /perl-install
parent17068198874ddf8c49ee708311cf83dbe723fd2a (diff)
downloaddrakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar
drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.gz
drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.bz2
drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.tar.xz
drakx-backup-do-not-use-68b151a5194f36584d0c27d8e95fb1f84eedcd1f.zip
make perl_checker happy: replace PKG::f with PKG::f()
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;
}